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, sintak pascal function minimum, mencari nilai rata2 dalam algortima menggunakan apa, menghitung jumlah data mencari data tertinggi dan mencari data terendah dengan menggunakan program turbo pascal?, tpw menggunakan array dan for untuk mencari total nilai dan nilai rata-rata, nilai terendah do, nilai tertinggi dan nilai terendah array, nilai tertinggi dan nilai terendah c tipe array, nilai tertinggi 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