Двумерные массивы

[Тигран001]

Даны две действительные квадратные матрицы A и B размерности N x N. Получить новую матрицу прибавлением к элементам каждого столбца матрицы A произведения элементов соответствующей строки матрицы B.

Вот, сделайте пожалуйста

[Arigato]

А самостоятельно в чём проблема сделать?

[Тигран001]

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

А самостоятельно в чём проблема сделать?

я не силен в математике, в паскале тем более, а лабу сдать то надо

[Arigato]

Сообщение от Тигран001

я не силен в математике, в паскале тем более

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

[p51x]

Только профессиональные математики могут складывать и умножать числа... ага?

[ROMA2PVT]

Program matr;
uses crt;
const
n=3;
m=3;
var
a,b,c : array[1..100,1..100] of integer;
i,j,s,proizv: integer;
begin
clrscr;
randomize;
for i:=1 to n do
 for j:=1 to m do
  begin
  a[i,j]:=random(5)-2;
  b[i,j]:=random(5)-2;
  end;
writeln('Первая матрица a: ');
for i:=1 to n do
 begin
 for j:=1 to m do
  write(a[i,j]:4);
 writeln;
 end;
writeln('Вторая матрица b: ');
for i:=1 to n do
 begin
 for j:=1 to m do
  write(b[i,j]:4);
 writeln;
 end;
writeln('Полученная матрица: ');
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
  proizv := 1;
  for s:=1 to m do
   proizv := proizv*b[i,s];
  c[i,j] := a[i,j]+proizv;
  write(c[i,j]:6);
  end;
 writeln;
 end;
end.

Вот вроди так.

[Тигран001]

у меня информатика просто не главный предмет, что эту задачу так трудно решить?

[Тигран001]

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

Program matr;
uses crt;
const
n=3;
m=3;
var
a,b,c : array[1..100,1..100] of integer;
i,j,s,proizv: integer;
begin
clrscr;
randomize;
for i:=1 to n do
 for j:=1 to m do
  begin
  a[i,j]:=random(5)-2;
  b[i,j]:=random(5)-2;
  end;
writeln('Первая матрица a: ');
for i:=1 to n do
 begin
 for j:=1 to m do
  write(a[i,j]:4);
 writeln;
 end;
writeln('Вторая матрица b: ');
for i:=1 to n do
 begin
 for j:=1 to m do
  write(b[i,j]:4);
 writeln;
 end;
writeln('Полученная матрица: ');
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
  proizv := 1;
  for s:=1 to m do
   proizv := proizv*b[i,s];
  c[i,j] := a[i,j]+proizv;
  write(c[i,j]:6);
  end;
 writeln;
 end;
end.

Вот вроди так.

Спасибо тебе большое )

[ROMA2PVT]

Не за что.С тебя отзыв.

[Тигран001]

у меня вопрос, на pascal abc работает, а вот на турбо что то не хочет, и еще он сам должен генерировать матрицы?