{Mira esto}
program matrizmulti;
uses
crt;
const
max = 3;
type
matriz = array[1..max,1..max] of integer;
var
toli, nu, h, v, l : integer;
mult, mat1, mat2 : matriz;
procedure cargamatriz(var m1, m2 : matriz);
var
esis : boolean;
p, t : integer;
begin
clrscr;
h := 1;
repeat
v := 1;
repeat
write(' Entre Valor De ',h,' / ',v,' : '); readln(nu);
writeln;
m1[h,v] := nu;
m2[h,v] := nu;
v := v + 1;
until v > max;
h := h + 1;
until h > max;
writeln;
writeln(' Fin Pulse Una Tecla '); readkey;
clrscr;
end;
begin
cargamatriz(mat1, mat2);
clrscr;
writeln;
writeln(' Matriz Creada '); writeln;
for h := 1 to max do
begin
write(' '); for v := 1 to max do
begin
write(' ',mat1[h,v]); end;
writeln;
end;
fillchar(mult,sizeof(mult),0);
for h := 1 to max do
begin
for v := 1 to max do
begin
toli := 0;
for l := 1 to max do
begin
toli := toli + (mat1[h,l] * mat2[l,v]);
writeln(' ',mat1[h,l],' X ',mat2[l,v]); end;
mult[h,v] := toli;
write(' = ',toli); writeln;
end;
end;
writeln;
writeln(' Matriz Multiplicada '); writeln;
for h := 1 to max do
begin
write(' '); for v := 1 to max do
begin
write(' ',mult[h,v]); end;
writeln;
end;
readkey;
end.
Crear cuenta
