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

[Рустем]

Процедура
составить программу для решения задачи. Реализовать программу с конкретными исходными данными.

Заданы 2 матрицы:
А=
а11 а12 а13
а21 а22 а23
а31 а32 а33

В=
b11 b12 b13
b21 b22 b23
b31 b32 b33
Проверить являються ли произведение этих матриц перестановочным, то есть проверить равенство АВ=ВА. В случае положительного ответа напечатать "АВ=ВА", иначе напечатать литерал "Произведение неперестановочно".
Вычисление произведения 2 матриц оформить в виде подпрограммы.
Исходные данные:
(две матрицы)
А=
1,2 5 -3
2,7 1 2
-4 6,3 2

В=
1 2 3
5,1 4 -7
6 8 9

[Rusl92]

Обьясни подробнее! не совсем понял условие задачи!

[Sazary]

uses crt;
const M=3; N=3;
type matrix = array[1..M,1..N] of real;
var
i,j : integer;
m1,m2 : matrix;
fl : boolean;
AA,BB : matrix;

function proizv(a,b : matrix; fi,fj : integer) : matrix;
 var fk : integer;
 c : matrix;
 begin
 for fi:=1 to M do
   for fj:=1 to N do
    begin
    c[fi,fj] := 0;
     for fk:=1 to N do
      c[fi,fj] := c[fi,fj] + a[fi,fk]*b[fj,fk];
    end;
 proizv := c;
 end;

begin
clrscr;
{m1[1,1] := 1.2; m1[1,2] := 5; m1[1,3] := -3;
m1[2,1] := 2.7; m1[2,1] := 1; m1[2,3] := 2;
m1[3,1] := -4; m1[3,2] := 1; m1[3,3] := 2;
m2[1,1] := 1; m2[1,2] := 2; m2[1,3] := 3;
m2[2,1] := 5.1; m2[2,2] := 4; m2[2,3] := -7;
m2[3,1] := 6; m2[3,2] := 8; m2[3,3] := 9;     }

{---------Проверочный код -----}
for i:=1 to M do
 for j:=1 to N do
  begin
  m1[i,j] := 1;
  m2[i,j] := 1;
  end;
{---------}

AA := proizv(m1,m2,M,N);
BB := proizv(m1,m2,M,N);

fl := true;
for i:=1 to M do
 begin
 for j:=1 to N do
  if AA[i,j] <> BB[i,j] then
   begin
   fl := false;
   break;
   end;
 if not fl then break;
 end;
if fl then writeln('Matricy perestanovo4nye')
else writeln('Matricy NE perestanovo4nye');
readln;
end.

Рустем А теперь о грустном..
Прочитайте правила! Вы создали 5 тем для одной задачи, и ни у одной темы нет даже нормального названия!

[Рустем]

Ваш код не хочет у меня работать(

[Sazary]

Ваш код не хочет у меня работать(

Так а в чем это проявляется?
У меня все работает, пишет, что матрицы перестановочные.

[Рустем]

SAZARY а вы можете выложить сам файл...

[Рустем]

Пишет, сейчас секундочку...

[Рустем]

Недопустимый тип результата функции...

[Sazary]

Так.. Во-первых, пардон - в первом листинге забыл вставить вызов самой функции ) Пофиксено
А во-вторых: замените функцию на процедуру:

uses crt;
const M=3; N=3;
type matrix = array[1..M,1..N] of real;
var
i,j : integer;
m1,m2 : matrix;
AA,BB : matrix;
fl : boolean;

procedure proizv(a,b : matrix; fi,fj : integer;var c : matrix);
 var fk : integer;
 begin
 for fi:=1 to M do
   for fj:=1 to N do
    begin
    c[fi,fj] := 0;
     for fk:=1 to N do
      c[fi,fj] := c[fi,fj] + a[fi,fk]*b[fj,fk];
    end;
 end;

begin
clrscr;
m1[1,1] := 1.2; m1[1,2] := 5; m1[1,3] := -3;
m1[2,1] := 2.7; m1[2,1] := 1; m1[2,3] := 2;
m1[3,1] := -4; m1[3,2] := 1; m1[3,3] := 2;
m2[1,1] := 1; m2[1,2] := 2; m2[1,3] := 3;
m2[2,1] := 5.1; m2[2,2] := 4; m2[2,3] := -7;
m2[3,1] := 6; m2[3,2] := 8; m2[3,3] := 9;

{---------Проверочный код -----}
{for i:=1 to M do
 for j:=1 to N do
  begin
  m1[i,j] := 1;
  m2[i,j] := 1;
  end;       }
{---------}

proizv(m1,m2,M,N,AA);
proizv(m1,m2,M,N,BB);

fl := true;
for i:=1 to M do
 begin
 for j:=1 to N do
  if AA[i,j] <> BB[i,j] then
   begin
   fl := false;
   break;
   end;
 if not fl then break;
 end;
if fl then writeln('Matricy perestanovo4nye')
else writeln('Matricy NE perestanovo4nye');
readln;
end.

Проверил в TP7 и в Free pascal 2.2.2

И еще: для добавления записи к вашему сообщению есть кнопка "правка" - используйте ее

[Рустем]

SAZARY Поможите?


А как можно сделать так чтобы самому нужно было вводить в программе исходные данные, и получался результат?