Program Rata Rata Bilangan Dengan Fungsi Procedure Pada Pascal

Share On :

Tweet

Sebenarnya banyak cara yang digunakan untuk mencari rata rata dalam pascal. sekarang saya akan menjabarkan pengaplikasian fungsi procedure pada pascal untuk mencari sebuah rata rata dari sekumpulan data N-bilangan.

program Rata_Rata_Bilangan_Bulat ;
uses wincrt ;
procedure HitungRataRata ;
var
x, N, k, jumlah : integer ;
rata : real ;
begin
write ( 'Masukkan banyaknya data ? ' ); readln (N) ;
jumlah := 0 ;
for k := 1 to N do
begin
write ( 'Nilai x : ? ' );
readln (x) ;
jumlah := jumlah + x ;
end;
rata := jumlah/N ;
writeln ( 'Nilai rata rata =' , rata:0:2) ;
end;
begin
writeln ( 'Menghitung rata rata N buah bilangan bulat' );
HitungRataRata;
end.

Hasilnya :
Menghitung rata rata N buah bilangan bulat
Masukkan banyaknya data ?
Nilai x : ? 34
nilai x : ? 12
nilai x : ? 23
Nilai rata-rata = 23.00