08 April 2012

Mencari Nilai Rata-Rata, Tertinggi Dan Terendah

Dibawah ini scripnya langsung dicoba aja ya. hhe


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.
Outputnya.


Selamat mencoba, Semoga bermanfaat.

sumber : Tugas kuliah.

0 komentar:

Post a Comment

Terima kasih sudah memberi komentar,
komentar anda sangat berguna untuk menjadikan blog ane lebih baik lagi..
jangan lupa berkunjung kembali..