Kamis, 03 November 2011

Contoh Program Bahasa Pascal

uses wincrt;

var
n, i : integer;
rata : real;
jum, bil : integer;

begin
writeln(‘Masukkan nilai N = ‘);readln(n);
writeln (‘Nilai N adalah= ‘,n);writeln;
for i := 1 to n do

begin
writeln(‘Masukkan bilangan : ‘);readln(bil);
jum := jum+bil;
end;
rata := jum/n;writeln;
writeln(‘Jumlahnya adalah : ‘,jum);
writeln(‘Nilai rata-ratanya :’, rata:0:2);
end.