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).
Saiful Bahri
[email protected]
sangat membantu sekali…
jelas, rinci, dan akurat.
terima kasih…
sip…
muantabs gan lanjutkan bagi-bagi ilmunya
thx bangets
Sip bro..
Cuma dikirimi je.. bantu posting aja.. :)
program rata2nya yg pake array donk??
minta penjelsan n program nilai tertinggi dan rata” menggunakan pointer donk
thanks ni materinya,,
buat belajar ujian ntar…
skali lagi thanks ya
Thankz Bro..
contoh program penjualan menggunakan for,repeat until,dan while?
minta contoh program pascal yang di dlmnya terdapat procedure dan functionnya donkkk :))
ini bukan menggunakan perogram c++ yah ko lain>!