facebook rss daftar isi halaman depan

Laman

Sabtu, 30 Oktober 2010

rata-rata

uses wincrt;

var a, siswa : integer;
nilai, total, tinggi, rendah, rata : real;

begin
total := 0;
write ('jumlah siswa : '); readln (siswa);
writeln;
for a := 1 to siswa do
begin
write ('nilai siswa ke ',a,' : '); readln (nilai);
total := total + nilai;
if a = 1 then begin
tinggi := nilai;
rendah := nilai;
end
else begin
if nilai > tinggi then tinggi := nilai
else begin
if nilai < rendah then rendah := nilai;
end;
end;
end;
rata := total / siswa;
writeln;
writeln ('nilai terendah : ', rendah :1:2);
writeln ('nilai tertinggi : ', tinggi :1:2);
writeln ('rata-rata : ',rata :1:2);
end.

Tidak ada komentar:

Posting Komentar

terimakasih aras kunjungan anda di blog mesujiraya
komentarnya saya tunggu mas bro & mbak sist