Program Mencari Rata-rata, Nilai Tertinggi dan Terendah

Apr 14, 2009 11 Comments by Sahabat

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
saipul_bahrie@yahoo.co.id

Kata Kunci

mencari nilai rata-rata, program pascal mencari rata-rata nilai tinggi badan, pseudocode untuk menghitung nilai rata rata, rumus rata-rata program PHP, cari rata-rata di delpi, program rata rata, cara menjumlah rata-rata nilai tertinggi nilai terendah, menghitung nilai tertinggi dan terendah, cara mencari nilai tertinggi dengan pascal, CARA mencari rata-rata 5 data di pascal.

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau

11 Responses to “Program Mencari Rata-rata, Nilai Tertinggi dan Terendah”

  1. don amor ornito says:

    sangat membantu sekali…
    jelas, rinci, dan akurat.
    terima kasih…

  2. suhendra says:

    muantabs gan lanjutkan bagi-bagi ilmunya
    thx bangets

  3. hendrianto says:

    program rata2nya yg pake array donk??

  4. vman says:

    minta penjelsan n program nilai tertinggi dan rata” menggunakan pointer donk

  5. alvine.Fr says:

    thanks ni materinya,,
    buat belajar ujian ntar…
    skali lagi thanks ya

  6. Aiez says:

    Thankz Bro..

  7. NELY says:

    contoh program penjualan menggunakan for,repeat until,dan while?

  8. wiievha says:

    minta contoh program pascal yang di dlmnya terdapat procedure dan functionnya donkkk :))

  9. eka says:

    ini bukan menggunakan perogram c++ yah ko lain>!

Leave a Reply