Page 114 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN

program PENJUMLAHAN_DERET;

{ menjumlahkan deret
1 + 2 + 3 + ... + N
dengan N adalah bilangan bulat positif yang dibaca dari piranti
masukan. jumlah deret dicetek ke piranti keluaran. }

uses wincrt;

(* DEKLARASI *)
var
N, k, jumlah : integer;

(* DESKRIPSI *)
begin
write('N = ');readln(N); {banyaknya suku deret}
jumlah:=0; { inisialisasi jumlah deret }
k:=1; { suku deret }
repeat
jumlah:=jumlah + k; {jumlah deret sekarang}
k:=k+1; {suku deret berikutnya}
until k > N;

writeln('jumlah deret = ', jumlah);

end.