Tulisan 7: Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Dinamis

 Ini adalah codingan dari programnya:


program jum_bil2; 
uses wincrt;
var
i, n: integer;
jum, bil: real;
begin
write(‘Banyak bilangan :  ’);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.


Dan ini adalah hasil outputnya setelah dirunning:

Banyak bilangan : 3 
Masukkan Bilangan 1 = 12
Masukkan Bilangan 2 = 13
Masukkan Bilangan 3 = 14
Jum = 39.00