Contoh Program Pascal : Menghitung jumlah beberapa bilangan - dinamis (Perulangan For)

 Program dibawah ini adalah contoh program untuk menghitung beberapa bilangan yang dimasukkan. Banyaknya bilangan dapat berubah-ubah sesuai inputan.

program jum_bil2; 
uses wincrt;
var
i, n: integer;
jum, bil: real;
begin
write(‘Banyak bilangan yang akan dihitung:  ’);read(n);
jum := 0;
For i:= 1 to n do
begin
write(‘Masukkan Bilangan ‘,i, ‘=’);read(bil);
jum := jum+bil;
end;
writeln(‘Jum = ‘,jum:0:2);
end.

Tags : Perulangan for, Program penjumlahan perulangan for, Dinamis