Program Mencari Rata-rata, Nilai Tertinggi dan Terendah

Contoh program untuk mencari nilai rata-rata, tertinggi dan terendah

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

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