Получить матрицу прибавлением к элементам первой матрицы произведения элементов строк второй матрицы

@Адилхан · Регистрация: 23.11.2016

Author24 — интернет-сервис помощи студентам

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

@Puporev · 24.11.2016, 10:21

Pascal

type matr=array[1..7,1..7]of real;
procedure matrix(var a:matr;n:byte;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=0.1+5*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
end;
var a,b:matr;
    n,i,j:byte;
    p:real;
begin
randomize;
repeat
write('Размер матриц от 2 до 7 n=');
readln(n);
until n in [2..7];
matrix(a,n,'A');
matrix(b,n,'B');
for j:=1 to n do
 begin
  p:=1;
  for i:=1 to n do
  p:=p*b[j,i];
  for i:=1 to n do
  a[i,j]:=a[i,j]+p;
 end;
writeln('Преобразованная матрица А');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:8:2);
  writeln;
 end;
end.

@Адилхан 0 / 0 / 0 Регистрация: 23.11.2016 Сообщений: 13
		1
	Получить матрицу прибавлением к элементам первой матрицы произведения элементов строк второй матрицы 24.11.2016, 07:52. Показов 3622. Ответов 1 Метки нет (Все метки) Даны две действительные квадратные матрицы порядка n. Получить новую матрицу прибавлением к элементам каждого столбца первой матрицы произведения элементов соответствующих строк второй матрицы 0

	24.11.2016, 10:21

Получить матрицу прибавлением к элементам первой матрицы произведения элементов строк второй матрицы

Решение