PROGRAM HITUNG DERET 1+2+4+8+16+... (PASCAL)

Tampilan:

                                                                                                                                    



Program Hitung_deret;
uses crt;

var
i : integer;
a,c,b, jumlah: real;

begin
writeln('MENGHITUNG DERET 1 + 2 + 4 + 8 + 16 + 32 + 64 + 128 + sampai 50 angka');
     a:= 0.5;
     b:= 2;
     jumlah:= 0;
     for i := 1 to 50 do
     begin
     c:= a * b;
     a:= c;
     jumlah:= jumlah + c;
     end;
     writeln('jumlah deret = ', jumlah:0:0);
readln;

end.