Contoh Program Perkalian pada Matriks

program perkalian_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 kalimatrik(m1,m2 :data);
var hasil : data;
    i,j,z : integer;
begin
     for i:=1 to baris do
         for j:=1 to baris do
             begin
                  hasil[i,j]:=0;
                  for z:=1 to baris do
                      hasil[i,j]:=hasil[i,j]+m1[i,z]*m2[z,j];
             end;
     writeln;
     write('Output : AxB = ');
     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 : Perkalian pada Matriks');
  writeln('Polma Saut Martua Sihotang');
  writeln('118130023 / IK-37-01');
  writeln('Telkom University');
  writeln;
  writeln;
  isimatrik;
  kalimatrik(matrikI,matrikII);
readln;
end.