CONTOH PROGRAM PASCAL

Berikut ini adalah contoh program Pascal menggunakan array buatan saya.

Semoga berguna bagi anda sekalian yang ingin mempelajari PASCAL

Program contoh_array_dimensi1;

Uses crt;

Var:

A,Y: integer;

X:array [1…4] as integer;

Begin

For A:= 1 to 4 do

Begin

Write (‘Masukan angka ke-‘, A);

Readln (X[A]);

End;

For A:= 1 to 2 do

Begin

Y := Y + X[A];

If X[A] > X[A-1] then

Max := X[A]

Else

Max := X[A-1];

If X[A] <>

Min := X[A]

Else

Min := X[A-1];

End;

For A:= 1 to 4 do

Begin

Write (‘ Nilai data ke-‘,a,’ :’);

Writeln (X[A]);

End;

Writeln (‘Nilai terbesar :’, Max);

Writeln (‘Nilai terendah :’, Min);

Writeln (‘Total nilai semua data :’, Y);

Readln;

End.

Contoh-contoh program selajutnya harap ditunggu y.