menghitung nilai rata-rata dengan turbo pascal

hai sahabat prince iva ..
apa kabar smuanya?
pada postinganku saat ini aku akan menjelaskan tentang menghitung nilai rata-rata dengan
mengunakan turbo pascal dengan mengunakan procedure while-do

uses wincrt;
var
    nilai, total , ratarata:real ;
    N,I               :inTEger;
begin
    clrscr;
    (-------memasukkan jumlah dari data-----------)
    write('jumlah data= ');
readln(n);
writeln;
(---------------memasukkan nilai daTA dan langsung di hitung-----------------------)
i:=0;
total:=0;
begin
i:=I+1;
write('nilai data ke',I,'!');
readln(nilai);
total:=total+nilai;
end;
(------------------------menghitung nilai rata-ratanya----------------------)
ratarata:=total/n;
(--------------------------menampilkan hasil------------------------------- )
writeln;
writeln('total nilai=',total:8:2);
writeln('jumlah data=',N:3)
writeln('nilai rata-rata =',ratarata:8:2);
end.


semoga sahabat prince iva dapat mencobanya ...
dan diharapkan jangan di copy paste seandainya sahabat prince iva belum memahaminya...
GBU !!!


harap tinggalkan kritik dan saran !!!!

download filenya klik disini