Contoh Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Dinamis

Berikut ini lanjutan beberapa contoh dari pemrograman dasar dengan menggunakan program Turbo Pascal... Langsung saja,,,,

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.

Selamat mencoba dan semoga berhasilllll.....