Delphi – Penjumlahan Array 2 Dimensi

Penjumlahan_Array_2_Dimensi_pada_Delphi

Ini adalah source code Delphi untuk penjumlahan array 2 dimensi:
program Array2Dimensi_Penumlahan;

{$APPTYPE CONSOLE}
uses
  SysUtils;
type
  larik = array[1..100, 1..100] of integer;
var
  A, B, C : larik;
  i, j, nbar, nkol : integer;
procedure matrikA(nbar, nkol: integer; var A: larik);
var
  i, j : integer;
begin
  for i := 1 to nbar do
  begin
    writeln;
    for j := 1 to nkol do
    begin
      write('Input nilai larik ke ',i,',',j,' : '); readln(A[i,j]);
    end;
  end;
end;
procedure cetak_A(nbar, nkol: integer; var A: larik);
var
  i, j : integer;
begin
  for i := 1 to nbar do
  begin
    for j := 1 to nkol do
    begin
      write(A[i,j], '   ');
    end;
    writeln;
  end;
end;
procedure matrikB(nbar, nkol: integer; var B: larik);
var
  i, j : integer;
begin
  for i := 1 to nbar do
  begin
    writeln;
    for j := 1 to nkol do
    begin
      write('Input nilai larik ke ',i,',',j,' : '); readln(B[i,j]);
    end;
  end;
end;
procedure cetak_B(nbar, nkol: integer; var B: larik);
var
  i, j : integer;
begin
  for i := 1 to nbar do
  begin
    for j := 1 to nkol do
    begin
      write(B[i,j], '   ');
    end;
    writeln;
  end;
end;
procedure JumlahMatriks(A, B : larik; var C : larik; nbar, nkol: integer);
var
  i, j : integer;  { indeks baris }
begin
  for i := 1 to nbar do
  begin
    for j := 1 to nkol do
    begin
      C[i,j] := A[i,j] + B[i,j];   { penjumlahan matriks A dan B }
      write(C[i,j], '   ');
    end;
    writeln;
  end;
end;
begin
  write('input nilai baris : '); readln(nbar);
  write('input nilai kolom : '); readln(nkol);
  writeln;
  writeln('Matrik A');
    write('--------');
  matrikA(nbar, nkol, A);
  writeln; writeln;
  cetak_A(nbar, nkol, A);
  writeln;
  writeln('Matrik B');
    write('--------');
  matrikB(nbar, nkol, B);
  writeln; writeln;
  cetak_B(nbar, nkol, B);
  writeln;
  write('Tekan [Enter] untuk memulai perhitungan...');
  readln;
  writeln;
  writeln('Jumlah Matrik');
  writeln('-------------');
  JumlahMatriks(A, B, C, nbar, nkol);
  readln;
end.