Kamis, 10 Februari 2011

Mencari Nilai Rata-rata, Tertinggi, Terendah.

Mencari nilai rata-rata, tertinggi, terendah.


 


 

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.

0 komentar: