Проверить код. Даны две целочисленные квадратные матрицы A и B

[Darik102rus]

Проверить код. Даны две целочисленные квадратные матрицы A и B

Даны две целочисленные квадратные матрицы A и B размерности N x N . Получить матрицу C=AxB+BxA

program p;
const strok = 100; stolbcov = 100;
var
  a,b: array [1..strok,1..stolbcov] of integer;
  c: array [1..strok,1..stolbcov] of integer;
  i,j,n,m: byte;
begin
 write('Введите размерность массива a и b:');
 readln(n,m);
 writeln('Массив a:');
  for i:=1 to n do
 begin
  for j:=1 to m do
  begin
  a[i,j]:=random(180);
  write(a[i,j],' ');
 end;
writeln();
end;
 writeln('Массив b:');
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
  b[i,j]:=random(180);
  write(b[i,j],' ');
 end;
writeln();
end;
 writeln('Массив c:');
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
   c[i,j]:=a[i,j]*b[i,j]+b[i,j]*a[i,j];
   write(c[i,j],' ')
  end;
 writeln();
end;
end.

 

[Vladimir_S]

Задача решена АБСОЛЮТНО неверно!!! В отличие от сложения, перемножение матриц НЕ сводится к почленному перемножению элементов.
Ладно, попробую изобразить.

 

[Vladimir_S]

Ну вот, как-то так:

const
 n=7;
var
  a,b,c1,c2,c: array [1..n,1..n] of integer;
  i,j,k: byte;
begin
 Randomize;
 writeln('Matrix A:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     A[i,j]:=random(20);
     write(a[i,j]:8);
    end;
   writeln;
  end;
 writeln('Matrix B:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     b[i,j]:=random(20);
     write(b[i,j]:8);
    end;
   writeln;
  end;
 writeln('Matrix C:');
 for i:=1 to n do
  for j:=1 to n do
   begin
    c1[i,j]:=0;
    c2[i,j]:=0;
   end;
 for i:=1 to n do
  for j:=1 to n do
   for k:=1 to n do
    begin
     c1[i,j]:=c1[i,j]+a[i,k]*b[k,j];
     c2[i,j]:=c2[i,j]+b[i,k]*a[k,j];
    end;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     c[i,j]:=c1[i,j]+c2[i,j];
     write(c[i,j]:8);
    end;
   writeln;
  end;
 readln
end.

 

[Darik102rus]

Ну вот, как-то так:

const
 n=7;
var
  a,b,c1,c2,c: array [1..n,1..n] of integer;
  i,j,k: byte;
begin
 Randomize;
 writeln('Matrix A:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     A[i,j]:=random(20);
     write(a[i,j]:8);
    end;
   writeln;
  end;
 writeln('Matrix B:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     b[i,j]:=random(20);
     write(b[i,j]:8);
    end;
   writeln;
  end;
 writeln('Matrix C:');
 for i:=1 to n do
  for j:=1 to n do
   begin
    c1[i,j]:=0;
    c2[i,j]:=0;
   end;
 for i:=1 to n do
  for j:=1 to n do
   for k:=1 to n do
    begin
     c1[i,j]:=c1[i,j]+a[i,k]*b[k,j];
     c2[i,j]:=c2[i,j]+b[i,k]*a[k,j];
    end;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     c[i,j]:=c1[i,j]+c2[i,j];
     write(c[i,j]:8);
    end;
   writeln;
  end;
 readln
end.

Можете сделать чтобы N вводить с клавиатуры?

 

[Daniellos]

Можете сделать чтобы N вводить с клавиатуры?

Но это же элементарно - const убираешь, в разделе var добавляешь. В программе добавляешь

writeln('Vvedite n');
readln(n);

 

[Vladimir_S]

Можете сделать чтобы N вводить с клавиатуры?

Могу. А Вы?

 

[Vladimir_S]

Но это же элементарно - const убираешь, в разделе var добавляешь. В программе добавляешь
writeln('Vvedite n');
readln;

Ага. Только я предпочитаю после подсказки переноса строки не делать, но добавить пробел, т.е.
write('Vvedite n ');
readln;
Так оно красивше!

 

[Daniellos]

Забыл добавить, что n может быть как и byte, так и integer. Byte принимает положительные значения до 255, integer - от минус 32768 до 32768