belajar pascal 5 (repeat)

belajar pascal repeat

 contoh program

program jumlah_deret;
uses crt;
var counter, suku, bilangan, pangkat : byte;
jumlah : longint;
begin
clrscr;
writeln('menghitung jumlah dari deret');
writeln('============================');
write('masukkan jumlah suku deret:'); readln(suku);
jumlah := 1;
bilangan := 1;
pangkat := 0;
repeat
begin
for counter := 1 to pangkat do
bilangan := bilangan * bilangan ;
jumlah := jumlah + bilangan;
inc(bilangan, 2);
inc(pangkat);
end;
until bilangan > (2* suku-1);
writeln('jumlah deret','=',jumlah);
readkey;
end.

hasil program