{Espero esto sirva}
program matriz4;
uses
crt;
const
n = 4;
type
lamatriz = array[1..n,1..n] of integer;
var
matri : lamatriz;
resul : lamatriz;
x, y : integer;
procedure llena_matriz(var ms : lamatriz);
var
t, l : integer;
m : integer;
begin
randomize;
for t := 1 to n do
for l := 1 to n do
begin
m := random((n * n)) + 1;
ms[l,t] := m;
end;
for m := 1 to n do
begin
for t := 1 to n do
begin
write(' ',ms[t,m]); end;
writeln;
end;
end;
procedure multiplica_matriz(al, bl : lamatriz; var cl : lamatriz);
var
p, i, j, k : integer;
begin
for i := 1 to n do
for j := 1 to n do
begin
p := 0;
for k := 1 to n do
p := p + al[i,k] * bl[k,j];
cl[i,j] := p;
end;
end;
procedure ordena(var mm : lamatriz);
var
pa, p1, p2, res : integer;
xx : array[1..(n * n)] of integer;
begin
res := 1;
for p1 := 1 to n do
for p2 := 1 to n do
begin
xx[res] := mm[p2,p1];
res := res + 1;
end;
for p1 := 1 to (n * n) - 1 do
for p2 := p1 + 1 to (n * n) do
if xx[p1] > xx[p2] then
begin
pa := xx[p1];
xx[p1] := xx[p2];
xx[p2] := pa;
end;
p1 := 1;
p2 := 1;
for pa := 1 to (n * n) do
begin
mm[p1,p2] := xx[pa];
p1 := p1 + 1;
if p1 > n then
begin
p2 := p2 + 1;
p1 := 1;
end;
end;
end;
begin
clrscr;
writeln;
writeln(' **** Matriz ****'); llena_matriz(matri);
writeln;
writeln(' /// Multiplicada ///'); multiplica_matriz(matri, matri, resul);
ordena(resul);
for y := 1 to n do
begin
for x := 1 to n do
begin
write(' ',resul[x,y]); end;
writeln;
end;
readkey;
end.
Crear cuenta