Algoritma Pemrograman 1

Algoritma RATA_RATA_BILANGAN_BULAT

{ Program utama untuk menghitung nilai rata-rata N buah

bilangan bulat. }

DEKLARASI (* Program Utama *)

{ tidak ada }

procedure HitungRataRata

{Menghitung nilai rata-rata N buah bilangan bulat. N>0}

DEKLARASI (* Prosedur *)

x : integer { data bilangan bulat }

N : integer { banyaknya data bilangan bulat, N > 0 }

k : integer { pencacah banyak bilangan }

jumlah : integer { jumlah seluruh bilangan }

rata : real { nilai rata-rata seluruh bilangan }

DESKRIPSI : (* Prosedur *)

read(N)

jumlah ¬ 0 { inisialisasi penjumlah }

for k ¬ 1 to N do

read(x)

jumlah ¬jumlah + x

endfor

rata ¬jumlah/N

write(‘Nilai rata-rata = ‘,rata)

DESKRIPSI : (Program Utama *)

write(‘Menghitung rata-rata N buah bilangan bulat’)

HitungRataRata

Semoga Berhasil...:D
Tidak Ada yang tidak bisa..:D