Contoh program untuk mencari nilai rata-rata, tertinggi dan 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.

Tampilan :

jumlah siswa : 6
nilai siswa ke 1 : 89
nilai siswa ke 2 : 90
nilai siswa ke 3 : 78
nilai siswa ke 4 : 69
nilai siswa ke 5 : 75
nilai siswa ke 6 : 80

nilai terendah : 69.00
nilai tertinggi : 90.00
rata-rata : 80.17

Logika.

Awalnya total diberi nilai 0.
Pertama masukkan jumlah siswa { jumlah siswa : 6 }
Maka akan terjadi 6 perulangan untuk menghitung total
Perulangan ke 1 ; a=1 ==:> nilai = 89
total = 0 + 89 = 89
a=1? Ya, berarti 89 adalah nilai tertinggi dan nilai terendah dalam perulangan pertama
perulangan ke 2 ; a=2 ==:> nilai = 90
total = 89 + 90 = 179
a=1? Tidak, apakah nilai 90 > 89 ? ya, maka 90 adalah nilai tertinggi dalam perulangan ke 2.
Perulangan ke 3 ; a=3 ==:> nilai = 78
Total = 179 + 78 = 257
a=1? Tidak, apakah nilai 78 > 90 ? tidak, maka 90 tetap jadi nilai tertinggi dalam perulangan ke 3.
Apakah nilai 78 < 89 ? ya, maka 78 adalah nilai terendah dalam perulangan ke 3. Perulangan ke 4 ; a=4 ==:> nilai = 69
Total = 257 + 69 = 326
a=1? Tidak, apakah nilai 69 > 90? Tidak, maka 90 tetap jadi nilai tertinggi dalam perulangan ke 4.
Apakah nilai 69 < 78 ? ya, maka 69 adalah nilai terendah dalam perulangan ke 4. Perulangan ke 5 ; a=5 ==:> nilai = 75
Total = 326 + 75 = 401
a=1? Tidak, apakah nilai 75 > 90? Tidak, maka 90 tetap jadi nilai tertinggi dalam perulangan ke 5.
Apakah nilai 75 < 69 ? tidak, maka 69 adalah nilai terendah dalam perulangan ke 5. Perulangan ke 6 ; a=6 ==:> nilai = 80
Total = 401 + 80 = 481
a=1? Tidak, apakah nilai 80 > 90 ? tidak, maka 90 tetap jadi nilai tertinggi dalam perulangan ke 6.
Apakah nilai 90 < 69 ? tidak, maka 69 tetap jadi nilai terendah dalam perulangan ke 6.
Menghitung rata-rata = total / siswa
= 481 / 6
= 80.17

Ditampilkan hasil :
Nilai terendah : 69.00
Nilai tertinggi : 90.00
Rata-rata : 80.17

sumber : catatan 31/03/09 (diperjelas).

Saiful Bahri
[email protected]