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 pointer tentang jumlah dan rata_rata dari 4 data yang di masukan dalam pascal, tpw menggunakan array dan for untuk mencari total nilai dan nilai rata-rata, algoritma menentukan bilangan tertinggi rata rata dan terendah, struktur menampilkan bilangan 1 2 3 bilangan tertinggi terendah dan rata rata menggunakan algoritma, program mencari nilai rata-rata dan nilai tertinggi, menghitung jumlah data mencari data tertinggi dan mencari data terendah dengan menggunakan program turbo pascal?, nilai rata rata pada pascal, nilai terendah do, nilai tertinggi dan nilai terendah array.

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