ARRAY DIMENSI 2

Pengertian Array Dua Dimensi

      Array dua dimensi sering digambarkan sebagai sebuah matriks, merupakan perluasan dari array satu dimensi. 2ika array satu dimensi hanya terdiri dari sebuah baris dan beberapa kolom elemen, maka array dua dimensi terdiri dari beberapa baris dan beberapa kolom elemen bertipe sama .

Dan di bawah ini adalah gambar sebuah progam yang membentukkan matrik ordo 2x2.

Dan kalo ingin mencoba, dibawah ini ada codingnya :

program matriks;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  A,B,C:ARRAY[1..10,1..10] OF INTEGER;

  X,Y,KOL,BAR:INTEGER;

BEGIN

  WRITELN;

  WRITELN('Nama : Maisirotul Rizka');

  WRITELN('NIM  : 114224022');

  WRITELN;

  WRITELN (' ==================');

  WRITELN (' Perjumlahan Matrik');

  WRITELN (' ==================');

  WRITELN;

  WRITE ('Masukikan Jumlah Kolom =');READLN (KOL);

  WRITE ('Masukkan  Jumlah Baris =');READLN (BAR);

  WRITELN;

  WRITELN('Masukkan Data Matrik A');

for X :=1 to BAR do

  BEGIN

    for Y :=1 to BAR do

      BEGIN

      WRITE ('Matrik A [',X,':',Y,']=');

      READLN (A[X,Y]);

      END;

      END;

  WRITELN;

  WRITELN('Masukkan Data Matrik B');

  for X :=1 to BAR do

BEGIN

   for Y :=1 to BAR do

      BEGIN

      WRITE ('Matrik B [',X,':',Y,']=');

      READLN (B[X,Y]);

      END;

      END;

  WRITELN;

  WRITELN('Hasil=');

for X :=1 to BAR do

  BEGIN

    for Y :=1 to BAR do

      BEGIN

      C[X,Y]:=A[X,Y]+B[X,Y];

      END;

      END;

for X :=1 to BAR do

  BEGIN

    for Y :=1 to BAR do

      BEGIN

      WRITE(C[X,Y]:6);

      END;

      WRITELN;

      END;

      READLN;

END.



Selamat mencoba.. ^^