Задача на матрицы

[щдуп]

Заданы 2 матрици. А=1.2 5 -3 и В= 1 2 3
2.7 1 2 5.1 4 -7
-4 6.3 2 6 8 9
проверить , является ли призведение этих матриц перестановочным т.е. проверить равенство АВ=ВА. в случае положительного ответа напечатать АВ=ВА. иначе напечатать литерал Произведение неперестановочно. Вычисление произведения двух матриц оформить в виде процедуры.

[_Dmitry]

Ну, и в чем проблема? Перемножай матрицы и сравнивай.
Следующая процедура перемножает квадратные матрицы a и b размером [n x n] и в результате получает матрицу c такого же размера.

const
  N_MAX = 10;

type
  TMatrix = array[1..N_MAX,1..N_MAX] of real;

procedure MultiMatrix(const n: integer; const a,b: TMatrix; var c: TMatrix);
var
  i,j,k: integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      begin
        c[i,j]:=0;
        for k:=1 to n do
          c[i,j]:=c[i,j]+a[i,k]*b[k,j];
      end;
end;

[puporev]

Числа в матрице проверь, а то мог неправильно списать, все съехало.

uses crt;
const n=3;
type Tmatr=array[1..n,1..n]of real;
const a:Tmatr=((1.2,5.0,-3.0),
                      (2.7,1.0, 2.0),
                      (-4.0,6.3,2.0));
         b:Tmatr=((1.0,2.0, 3.0),
                       (5.1,4.0,-7.0),
                       (6.0,8.0, 9.0));
var c,d:Tmatr;
    i,j,p:byte;

procedure UmnMatr(x,y:Tmatr;var z:Tmatr);
var k:byte;
begin
for k:=1 to n do
for j:=1 to n do
   begin
     z[k,j]:=0;
     for i:=1 to n do
        begin
          z[k,j]:=z[k,j]+x[k,i]*y[i,j];
        end;
   end;
end;
begin
clrscr;
Writeln('Proizvedenie a*b:');
UmnMatr(a,b,c);
for i:=1 to n do
  begin
    for j:=1 to n do
    write(c[i,j]:6:2);
    writeln;
  end;
writeln;
Writeln('Proizvedenie b*a:');
UmnMatr(b,a,d);
for i:=1 to n do
  begin
    for j:=1 to n do
    write(d[i,j]:6:2);
    writeln;
  end;
writeln;
p:=0;
for i:=1 to n do
for j:=1 to n do
if c[i,j]=d[i,j] then
   begin
     p:=p+1;
   end;
if p=n*n then writeln('AB=BA')
else writeln('Proizvedenie ne perestanovochno!');
readln
end.

[щдуп]

большое всем спасибо, за то, что уделили внимание и помогли.