Program Perkalian Matrik dengan Pascal

Kali ini gue mau mosting mengenai perkalian matrik di Turbo Pascal. Katanya juga nie buat quiz besok dikampus. Sebenarnya masih keganggu mengenai masalah yang kemarin,tapi ya sudahlah.

Dan ini contoh syntaxnya

uses wincrt;

type matrik = array [1..50,1..50]of integer;
var
   a,b,c:matrik;
   i,j,k,x,y,z:integer;


procedure cetak;
begin
for i:= 1 to x do
for j:= 1 to y do
begin
     write('Matrik A [',i,',',j,'] =');
     readln(a[i,j]);
end;
writeln;
for i:= 1 to y do
for j:= 1 to z do
begin
     write('Matrik B [',i,',',j,'] =');
     readln(b[i,j]);
end;
end;

procedure kali;
begin
for i:= 1 to x do
for j:= 1 to z do
for k:= 1 to y do
c[i,j]:= c[i,j]+ a[i,k]*b[k,j];
end;

procedure hasil;
begin
writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah : ');
Writeln;
for i:=1 to x do
begin
for j:=1 to z do
write(c[i,j],' ');
writeln;
end;
writeln;
readln;
end;

begin
writeln('Ordo matrik A');
write('Baris =');
readln(x);
write('Kolom =');
readln(y);
writeln;
writeln;
writeln('Ordo matrik B');
writeln('Baris =',y);
write('Kolom =');
readln(z);
cetak;
writeln;
kali;
writeln;
hasil;
end.