Contoh Program Pengurangan pada Matriks

program pengurangan_matrik;
uses crt;
type data = array[1..10,1..10] of integer;
var matrikI,matrikII : data;
    baris,kolom,pil : integer;
    Ul : char;

procedure isimatrik;
var i,j : integer;
begin
 write ('Ukuran Matriks (a x a) : '); readln(baris);
 writeln;
     writeln ('A =');
     writeln;
      for i:=1 to baris do
         begin
         for j :=1 to baris do
             begin
                  gotoxy (j*5,i+8);
                  read(matrikI[i,j]);
             end;
         end;
     writeln;
     writeln('B =');
     writeln;
     for i:=1 to baris do
         begin
         for j:=1 to baris do
             begin
                  gotoxy(j*5,i+12);
                  read(matrikII[i,j]);
             end;
         end;
end;


procedure kurangmatrik(m1,m2 : data);
var hasil : data;
    i,j : integer;
begin
     for i:=1 to baris do
         for j:=1 to baris do
             begin
                  hasil[i,j]:=m1[i,j]-m2[i,j];
             end;
     writeln;
     writeln('Output : A-B = ');

     for i:=1 to baris do
         for j:=1 to baris do
             begin
                  gotoxy(j*5,i+17);
                  write(hasil[i,j]);
             end;
readln;
end;

begin
clrscr;
  writeln('Program : Pengurangan pada Matriks');
  writeln('Polma Saut Martua Sihotang');
  writeln('118130023 / IK-37-01');
  writeln('Telkom University');
  writeln;
  writeln;
              isimatrik;
              kurangmatrik(matrikI,matrikII);
readln;
end.