Variabel Array Dimensi Dua

Array dua dimensi sering juga di sebut matrik. Array dua dimensi merupakan perluasan dari array dimensi satu, yang merupakan kumpulan elemen identic yang terdiri dari beberapa baris dan kolom dengan tipe data yang sama.

Contoh Matrik : A 3x4

  

Matrik di ata juga bisa di tulis:

[1.1] = 1

[1.2] = 4

[1.3] = 1

[1.4] = 1

[2.1] = 3

[2.2] = 5

[2.3] = 4

[2.4] = 3.

[3.1] = 6

[3.2] = 2

[3.3] = 1

[3.4] = 7

Penjumlahan Matrik
* syarat dari penjumlahan matrik adalah orde-nya harus sama Contohnya:

Dari contoh diatas A dan B berorde sama yaitu Orde 3x2

Dan sekarang dari contoh diatas Buatlah Programnya, adapun script-nya sebagai berikut:

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  A,B,C:ARRAY[1..10,1..10] OF INTEGER;
  X,Y,KOL,BAR:INTEGER;
begin
  WRITELN ('ARRAY DIMENSI DUA/MATRIK');
  WRITELN (' ');
  WRITELN ('Nama  : MUNAWIR');
  WRITELN ('NIK  : 114224030');
  WRITELN ('************************');
  WRITE('MASUKKAN 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 KOL DO
  BEGIN
  WRITE('MATRIK A [',X,':',Y,']=');
  READLN (A[X,Y]);
  END;
  END;
   WRITELN('MASUKKAN DATA MATRIK b');
  FOR X := 1 TO BAR DO
  BEGIN
  FOR Y := 1 TO KOL DO
  BEGIN
  WRITE('MATRIK b [',X,':',Y,']=');
  READLN (b[X,Y]);
  END;
  END;

   FOR X := 1 TO BAR DO
  BEGIN
  FOR Y := 1 TO KOL DO
  BEGIN
  c[X,Y]:=A[X,Y]+B[X,Y];
  END;
  END;

  FOR X := 1 TO BAR DO
  BEGIN
  FOR Y := 1 TO KOL DO
  BEGIN
  WRITELN(C[X,Y]:6);
  END;
  WRITELN;
  END;
  readln;
end.

Mungkin untuk variabel array dimensi dua sampai disini saja.

terimakasih.

Baca juga materi tentang Soal variabel array dimensi dua dan Procedure dan Faktorial.