Program Pascal Menghitung Rata-rata

Standar

Saya mau sedikit berbagi mengenai program pascal disini, karena salah satu tuntutan mata kuliah, dari semester 2 dan semester 3 sekarang. Yahh. selalu bergelut mengenai bahasa pemrograman yang katanya paling sederhana. (pernah baca disalah satu halaman). waduh, rasa sakit hati loh dengernya, padahal ini ajah udah susahnya minta ampun !! heuh.

Nah cekidot aja deh salah satu program pascal yang pernah saya COMPILE dan bisa di RUN.

program rata_rata;
uses crt;
const
Nmaks = 100;
type
LarikInt = array [1..Nmaks] of integer;
var
A : LarikInt;
i : integer;
n : integer;
u : real;
procedure BacaLarik(var A : LarikInt; n : integer);
var
i : integer;
jawab : char;
begin
for i := 1 to n do
begin
write(‘Masukkan nilai A[‘,i,’]:’); readln(A[i]);
end;
end;

procedure CetakLarik(A : LArikInt; n : integer);
var
i : integer;
begin
for i := 1 to n do
writeln(‘A[‘,i,’]= ‘,A[i]);

end;

procedure HitungRataRata(A : LarikInt; n : integer; var u : real);
var
i : integer;
jumlah : real;
begin
i := 1;
jumlah := 0;
for i := 1 to n do
jumlah := jumlah + A[i];
u:=jumlah / n;
end;

begin
clrscr;
writeln(‘Baca Jumlah Data (n) : ‘);
readln(n);
writeln(‘ Baca data ; ‘);
BacaLarik(A,n);

writeln(‘Cetak data : ‘);
CetakLarik(A,n);

writeln(‘Hitung rata-rata : ‘);
HitungRataRata(A,n,u);
writeln(‘Rata-rata data = ‘, u:10:6);
end.

sekian…

leave comment yah !! ^^

3 responses »

  1. Ping-balik: Hoodia Balance

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s