Contoh Program pascal ARRAY & Luas Bangun

1. Luas Bangun

USES CRT;

Var luas : real ;
Alas,Tinggi : integer ;
begin
clrscr;
luas:=0;
Writeln('Masukan nilai Alas :');readln(alas);
Writeln('Masukan nilai Tinggi :');readln(tinggi);
Luas:=Alas*(tinggi/2);
Writeln('Luasnya adalah : ',luas:0:0);
readln;
end.
 
 
1. Array 1 Dimensi..............

uses crt;

var Bilangan : array[1..50] of Integer;                                               OUTPUT PROGRAM
Begin                                                                                               nilai varibel bilangan ke 1 = 100
ClrScr;                                                                                             nilai varibel bilangan ke 2 = 200
Bilangan[1]:=100;                                                                             nilai varibel bilangan ke 3 = 300
Bilangan[2]:=200;                                                                             nilai varibel bilangan ke 4 = 400
Bilangan[3]:=300;
Bilangan[4]:=400;
Writeln('nilai varibel bilangan ke 1 =',Bilangan[1]);
Writeln('nilai varibel bilangan ke 2 =',Bilangan[2]);
Writeln('nilai varibel bilangan ke 3 =',Bilangan[3]);
Writeln('nilai varibel bilangan ke 4 =',Bilangan[4]);
Readln;
End.

2. ARRAY 2 Dimensi

USES crt;                                                                                           OUTPUT PROGRAM
var matrik : array[1..3,1..2] of integer;                                                      Contoh Matrix :
i, j : byte;                                                                                                         2     3
begin                                                                                                                3     4
CLRSCR;                                                                                                           8   10
writeln('Contoh Matrik :');
matrik[1,1] := 2;
matrik[1,2] := 3;
matrik[2,1] := 3;
matrik[2,2] := 4;
matrik[3,1] := 8;
matrik[3,2] := 10;
for i:= 1 to 3 do
begin
for j:=1 to 2 do
write (matrik[i,j]:5);
writeln;
end;
readln;
end.