Array Dua Dimensi

Dosen : Harjono, ST.

Di dalam pascal Array dapat berdimensi lebih dari satu yang disebut dengan array dimensi banyak (Multidimensional array).

Array 2 dimensi dapat mewakili suatu bentuk tabel atau matrik, yaitu indeks pertama menunjukkan baris dan indeks ke dua menunjukkan kolom dari tabel atau matrik.

Bentuk umum :

type
NamaArray = array[index1,index2] of TipeData;

---

Program Deklarasi_Array_Dua_Dimensi;

Uses WinCrt;

Var 

Tabel : Array[1..3,1..2] of Integer;

i,j : Integer;

Begin  

ClrScr;  

Tabel[1,1]:=1;  

Tabel[1,2]:=2;  

Tabel[2,1]:=3;  

Tabel[2,2]:=4;  

Tabel[3,1]:=5;  

Tabel[3,2]:=6;

For I := 1 to 3 Do

Begin

For J:= 1 to 2 Do

Writeln('Elemen ',i,',',j,'= ',tabel[i,j]);

End;

End.

Alternatif Deklarasi Array Dua Dimensi.

Var

Tabel : Array[1..3] of Array[1..2] of Byte;

atau :

Type  

Matrik = Array[1..3,1..2] of Byte;

Var  

Tabel : Matrik;

atau :

Type

Baris = 1..3;

Kolom = 1..2;  

Matrik = Array[Baris,Kolom] of Byte;

Var Tabel : Matrik;

atau : 

Type  

Baris = 1..3;  

Kolom=1..2;  

Matrik= Array[Baris] of Array[Kolom] of Byte;

Var  

Tabel : Matrik; 

Contoh deklarasi :

Const
jum_kuartal = 3;
jum_produk = 4;
Type
TabelPenjualan = array[1..jum_produk, 1..jum_kuartal] of integer ;
Var
DafPenjualan : TabelPenjualan ;

Contoh : array dengan 4 produk & 3 kuartal

Pendeklarasian Type dapat pula ditulis :
Type
TabelPenjualan = array[1..jum_produk] of [1..jum_kuartal] of integer ;

Akses elemen array:
Nama_array[index_baris, index_kolom]
contoh :

Bila kita memberi pernyataan:
- DafPenjualan[3,2] := 50 ;
maka elemen pada baris 3 kolom 2 akan berisi 50.

- writeln(DafPenjualan[3,2]);
maka akan menampilkan isi elemen baris 3 kolom 2

Contoh program array dua dimensi :

Program Jual;
Uses crt;
Const
jum_kuartal = 3;
jum_produk = 4;
Type
TabelJual = array [1..jum_produk,1..jum_kuartal] of integer;
Var
DafJual : TabelJual;
produk,kuartal:integer;
Begin
clrscr;
{==== pemasukan data ====}
for produk := 1 to jum_produk do
begin
writeln(‘produk ’, produk);
for kuartal := 1 to jum_kuartal do
begin
write(‘ kuartal ‘, kuartal);
readln(DafJual[produk,kuartal]);
end;
end;

{ lanjutan}


{===== menampilkan Data =====}
Clrscr;
writeln(‘Isi Array : ‘);
writeln(‘ PRODUK KUARTAL 1 KUARTAL 2 KUARTAL 3’);
for produk := 1 to jum_produk do
begin
write(produk:6);
for kuartal := 1 to jum_kuartal do
write(dafJual[produk,kuartal]:14);
writeln;
end;
readln;
End.

Baca Juga

• Fungsi