cek it dot...
program Perkalian_Matrix_adi;
uses wincrt;
var
a,b,c : array [1..10,1..10] of integer;
i,j,k,n,m,p : integer;
begin
clrscr;
writeln(' PROGRAM PERKALIAN MATRIK');
writeln(' ========================');
writeln;
writeln('cara penggunaan!');
writeln;
writeln('1. inputkan jumlah baris dan kolom matrik A dan matrik B');
writeln('2. maksimal ordo matrik yaitu 10 x 10.');
writeln('3. input data matrik sebanyak 2 kali yaitu matrik A dan matrik B');
writeln;
writeln('Ukuran matrix A');
writeln;
write('Baris : '); readln(n);
write('Kolom : '); readln(m);
writeln;
writeln('Ukuran matrix B');
writeln;
writeln('Baris : ',m);
write('Kolom : '); readln(p);
writeln;
for i:=1 to n do
for j:=1 to m do
begin
write('data A[',i,',',j,'] : ');
readln(a[i,j]);
end;
writeln;
for i:=1 to m do
for j:=1 to p do
begin
write('data B[',i,',',j,'] : ');
readln(b[i,j]);
end;
for i:=1 to n do
for j:=1 to p do
for k:=1 to m do
c[i,j] := c[i,j] + a[i,k]*b[k,j];
writeln;
writeln;
writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah : ');
Writeln;
for i:=1 to n do
begin
for j:=1 to p do
write(c[i,j],' ');
writeln;
end;
writeln;
readln;
end.
dan untuk hasilnya....bisa liyat gambar di bawah ini...
demikian terima kasih...
