ARRAY "LARIK" dalam PASCAL

ARRAY


Contoh-Contoh Program Sederhana Type Data Array



Contoh PROGRAM 1 :



Program TABEL;

Var i : integer;
tab : array [1….10] of integer;
N : integer;

Begin
N := 5;
Writeln (‘ Isi dan Cetak Tabel : ‘);
For i := 1 to N do
Begin tab [i] := i;
Tab [i] := i;
End;
For i := 1 to N do
Begin
Writeln ( ‘I = ‘,i, ‘ tab[i]= ‘, tab[i] );
End;
End.





Contoh PROGRAM 2 :



Program Tabel_Struktur;

Type point = record
X : integer;
Y : integer;
End;

Var
I : integer;
Tabpoint : array [1..10] of point;
N : integer;

Begin
N := 5;
Writeln (‘ Isi dan cetak table struktur : ‘);
For I := 1 to N do
Begin
Tabpoint [i].X := I;
Tabpoint [i].Y := Tabpoint [i].X;
End;
Writeln (‘ -------------------------------------‘);
Writeln (‘ I X Y ‘);
Writeln (‘ -------------------------------------‘);
For I := 1 to N do
Begin
Writeln (i:5, tabpoint [i].X:5, tabpoint [i].Y:5);
End;
Writeln (‘------------------------------------- ‘);
End.



Contoh PROGRAM 3 :



Program table_dua_dimensi;

Type
MatInt : array [1..3, 1..3] of integer;
MatArr : array [1..3] of array [1..3] of integer;

Var
M1 : MatInt;
MA1 : MatArr;
i , j : integer;

begin
writeln (‘ Array dua dimensi : ‘);
for i := 1 to 3 do;
begin
j := 1 to 3 do
begin
M1 [i,j] := i * j;
End;
End;
for i := 1 to 3 do;
begin
j := 1 to 3 do
begin
write (‘ (I,j) = ‘, I, ’,’ , j, ‘ => M1 [I,j] = ‘, M1 [I,j])
End;
writeln
End;
Writeln (‘ Array of Array :’);

for i := 1 to 3 do;
begin
j := 1 to 3 do
begin
MA1 [i] , [j] := i * j;
End;
End;

for i := 1 to 3 do;
begin
j := 1 to 3 do
begin
write (‘ (i,j) = ‘, i, ‘, ‘, j, ‘, => MA1 [i,j] = ‘, MA1 [i] [j]);
End;
End;
Writeln;
End;
End.





Contoh PROGRAM 4 :



Program table_tiga_dimensi;

Type
MatInt : array [1..2, 1..2, 1..2] of integer;
MatArr : array [1..2] of array [1..2] of array [1..2] of integer;

Var
M1 : MatInt;
MA1 : MatArr;
i , j, k : integer;

begin
writeln (‘ Array tiga dimensi : ‘);
for i := 1 to 2 do;
begin
for j := 1 to 2 do
begin
for k := 1 to 2 do
M1 [i,j,k] := i * j;
End;
End;
for i := 1 to 2 do;
begin
for i := 1 to 2 do
begin
for k := 1 to 2 do
write (‘ (I,j,k) = ‘, i, ’,’ , k, ‘ => M1 [i,j,k] = ‘, M1 [i,j,k])
end;
End;
Writeln (‘ Array of Array of Array :’);

for i := 1 to 2 do;
begin
for j := 1 to 2 do
begin
for k := 1 to 2 do
write MA1 [i] [j] [k] :=i*j;
end;
End;


for i := 1 to 2 do;
begin
j := 1 to 2 do
begin
for k := 1 to 2 do
begin
writeln ( ‘ (I,j,k =’, ‘, ‘ j, ’, ‘, k, ‘, => MA1[I,j,k] = ‘ MA1 [i] [j] [k];
End;
End;
Writeln;
End;
End.