Alternatif Deklarasi Array Dua Dimensi.

Alternatif  Deklarasi Array Dua Dimensi.

Ada beberapa cara dalam mendeklarasikan array dua dimensi, beberapa cara tersebut dapat
dilihat dibawah ini :

Contoh :

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;

Dibawah ini akan diberikan listing program penggunaan array dua dimensi dalam aplikasi
penjumlahan matrik :

Contoh Prorgam:

Program Penjumlahan_Matrik;
Uses Crt;
Var
         Matrik1,Matrik2, Hasil : Array[1..3,1..2] of Integer;
            i,j                 : Integer;
Begin
          ClrScr;
          { input matrik ke satu }
          Writeln(' Elemen matrik satu');
           For i := 1 to 3 Do
            Begin
              For j := 1 to 2 Do
                 Begin
                 Write('Elemen baris -',i,' Kolom -',j,'= ');
             Readln(matrik1[i,j]);
                 End;
End;
           {input matrik ke dua}
           Writeln('input elemen matrik dua');
            For i:= 1 to 3 Do
                Begin
                 For j:= 1 to 2 Do
                Begin
             Write('Elemen baris -',i,' kolom -',j,'= ');
                 Readln(matrik2[i,j]);
                End;
End;
            {proses penjumlahan tiap elemen}
            
             For i := 1 to 3 Do
               Begin
                   For j:= 1 to 2 Do
             Begin
                    Hasil[i,j]:=Matrik1[i,j]+Matrik2[i,j];
                End;
               End;
            {proses cetak hasil}
             For i:= 1 to 3 Do
                 Begin
                 For j:= 1 to 2 Do
                     Begin
                  Write(Hasil[i,j]:6);
                End;
             Writeln;
               End;
              Readln;
End.