Syntak
program:
uses wincrt;
var
a,b,c : array
[1..50,1..50] of integer;
i,j,k,x,y,z,s :
integer;
begin
clrscr;
writeln('Ukuran
matrix A');
write('Baris : ');
readln(x);
write('Kolom : ');
readln(y);
writeln;
writeln;
writeln('Ukuran
matrix B');
write('Baris : ');
readln(s);
write('Kolom : ');
readln(z);
for i:=1 to x do
for j:=1 to y do
begin
write('Elemen A[i][j]
: ');
readln(a[i,j]);
end;
writeln;
for i:=1 to s do
for j:=1 to z do
begin
write('Elemen B[i][j]
: ');
readln(b[i,j]);
end;
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];
writeln;
writeln;
writeln('Hasil kali
');
Writeln;
for i:=1 to x do
begin
for j:=1 to z do
write(c[i][j]);
writeln;
end;
writeln;
readln;
end.
Hasil
Running:
