program berikut ini akan menghitung nilai rata-rata dari sejumlah data yang akan dimasukkan. Jumlah dari data dimasukkan dan akan dilakukan perulangan sebanyak jumlah data tersebut untuk menanyakan nilai masing-masing data dan menghitung totalnya.
berikut sourcecode programnya.
program hitung;
uses wincrt;
var
nilai,total,ratarata : real;
n,i : integer;
begin
clrscr;
write(’jumlah data? ‘);
readln(n);
writeln;
i:=0;
total:=0;
while i < n do
begin
i:=i+1;
write(’nilai data ke’,i,’?');
readln(nilai);
total:=total + nilai;
end;
ratarata:=total/n;
writeln;
writeln(’Total Nilai =’,total:8:2);
writeln(’Jumlah Data =’,n:3);
writeln(’Rata-rata Nilai =’,ratarata:8:2);
end.