Contoh Program Pascal

Berikut adalah contoh sederhana program pascal



program jum_bil;
uses wincrt;

var

i, jum,bil: integer;

begin

jum:=0; {inisialisasi}

for i:=1 to 5 do

begin

write(‘Masukkan Bilangan = ‘);readln(bil);

jum:=jum+bil;



end;

writeln(‘Jumlah Bilangan = ‘,jum);

end.



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.



program contoh_3;
uses wincrt;

var

n, i : integer;

rata : real;

jum, bil : integer;

begin

Write(‘Masukkan nilai N = ‘);readln(n);

writeln (‘Nilai N adalah= ‘,n);writeln;

for i := 1 to n do

begin

write(‘Masukkan bilangan : ‘);read(bil);

jum := jum+bil;

end;

rata := jum/n;writeln;

writeln(‘Jumlahnya adalah : ‘,jum);

writeln(‘Nilai rata-ratanya :’, rata:0:2);

end.