Не работает выложенная моя задача....

[Рустем]

Это задача выложена ниже...
Вот она решенная....
ПОЧЕМУ НЕ РАБОТАЕТ????


Procedure VVOD(var x:mas); Begin
writeln('Введите массив построчно');
for i:=1 to 3 do
for j:=1 to 3 do
read(x[i,j]); End;
BEGIN
VVOD(A);
VVOD(B);
Umnogenie(А,В,С);
Umnogenie(B,A,D);
k:=0;
for i:=1 to 3 do
for j:=1 to 3 do
if C[i,j]=D[i,j] then k:=k+1;
if k=9 then writeln('A*B=B*A')
else writeln('Произведение не перестановочно');
END.


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

Заданы 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

[Google[Bot]]

Что именно не работает?
Напиши фунцию Umnogenie, а лучше выведи на экран промежуточные данные - матрицы C и D

[puporev]

Даже половину программы не написал и чего-то ждешь.

uses crt;
const n=3;
type mas=array[1..n,1..n] of real;/тип массива
Procedure VVOD(p:char;var x:mas); //ввод с клавиатуры
var i,j:integer;
Begin
writeln('Vvedite ',n*n,' elementov massiva ',p,':');
for i:=1 to n do
for j:=1 to n do
read(x[i,j]);
readln;
writeln;
end;
Procedure Vyvod(var x:mas);//вывод на экран в форматированном виде
var i,j:integer;
begin
for i:=1 to n do
  begin
    for j:=1 to n do
    write(x[i,j]:7:1);
    writeln;
  end;
end;
procedure Umnozenie(x,y:mas; var z:mas);//умножение
var i,j,k:integer;
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;
var a,b,c,d:mas; //раздел переменных программы
    i,j,k:integer;
BEGIN  /программа
clrscr;
VVOD('A',A);
VVOD('B',B);
clrscr; //очистим ввод
writeln('Matrica A:');
Vyvod(a);
writeln('Matrica B:');
Vyvod(b);
Umnozenie(a,b,c);
writeln('Matrica C=A*B:');
Vyvod(c);
Umnozenie(B,A,D);
writeln('Matrica D=B*C:');
Vyvod(d);
k:=0;
for i:=1 to n do
for j:=1 to n do
if C[i,j]=D[i,j] then k:=k+1;
if k=9 then writeln('A*B=B*A')
else writeln('Proizvedenie ne perestanovochno!');
readln
END.

[Рустем]

Сообщение от puporev

Даже половину программы не написал и чего-то ждешь.

uses crt;
const n=3;
type mas=array[1..n,1..n] of real;/тип массива
Procedure VVOD(p:char;var x:mas); //ввод с клавиатуры
var i,j:integer;
Begin
writeln('Vvedite ',n*n,' elementov massiva ',p,':');
for i:=1 to n do
for j:=1 to n do
read(x[i,j]);
readln;
writeln;
end;
Procedure Vyvod(var x:mas);//вывод на экран в форматированном виде
var i,j:integer;
begin
for i:=1 to n do
  begin
    for j:=1 to n do
    write(x[i,j]:7:1);
    writeln;
  end;
end;
procedure Umnozenie(x,y:mas; var z:mas);//умножение
var i,j,k:integer;
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;
var a,b,c,d:mas; //раздел переменных программы
    i,j,k:integer;
BEGIN  /программа
clrscr;
VVOD('A',A);
VVOD('B',B);
clrscr; //очистим ввод
writeln('Matrica A:');
Vyvod(a);
writeln('Matrica B:');
Vyvod(b);
Umnozenie(a,b,c);
writeln('Matrica C=A*B:');
Vyvod(c);
Umnozenie(B,A,D);
writeln('Matrica D=B*C:');
Vyvod(d);
k:=0;
for i:=1 to n do
for j:=1 to n do
if C[i,j]=D[i,j] then k:=k+1;
if k=9 then writeln('A*B=B*A')
else writeln('Proizvedenie ne perestanovochno!');
readln
END.

Спасибо огромное.... Хорошо буду создавать только одну тему по задаче.... Просто я не умел делать правку в теме.... Теперь научился.... Первый раз на форуме.....