program perkalian_matrik;
uses crt;
var
mat_A,mat_B,mat_C :array [1..10,1..10] of integer;
ordo_x,ordo_y:integer;
x,y,koor_brs:integer;
begin
clrscr;
writeln('perkalian matrik');readln;
writeln('-----------------');readln;
write('tentukan ordo matrik : '); readln(ordo_x,ordo_y);
writeln('input matrik : ');
for y:=1 to ordo_y do
begin
koor_brs:=wherey;
for x:=1 to ordo_x do
begin
gotoxy(x*5,koor_brs);
read(mat_A[x,y]);
end;end;
writeln;
writeln('input matrik : ');
for y:=1 to ordo_y do
begin
koor_brs:=wherey;
for x:=1 to ordo_x do
begin
gotoxy(x*5,koor_brs);
read(mat_B [x,y]);
end;end;
writeln;
writeln('hasil perkalian matrik A*B = ');readln;
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
mat_C [x,y] :=mat_A[x,y]*mat_B[x,y];
write(mat_C[x,y]:5);
end;
writeln;
readln;
end;
end.
Tidak ada komentar:
Posting Komentar