Алгоритмы и программы. Афанасьева Т. В - 136 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

136
begin
s:=0;
for i:=1 to N do
begin
read(a[i,j]);
s:=s+b[i]*a[i,j]; {выполнение умножения}
end;
c[j]:=s;
end;
<write>;
end.
3) Умножение матрицы на матрицу.
Умножаться могут только согласованные матрицы.
Фрагмент программы, реализующий умножение:
for i:=1 to n do
for j:=1 to m do {n,m,k–размерность соответствующих параметров}
begin
s:=0;
for e:=1 to k do
s:=s+a[i,e]*b[e,j];
c[i,j]:=s;
end;
Примеры задач с двумерными массивами
Пример 7.24. В двумерном массиве вычислить произведение всех
элементов массива.
program lupa3;
const
a:array[1..4,1..4] of integer =((4,2,–3,–6),
(1,8,3,2), {Ввод с помощью}
(1,4,98,3), {типизированной константы}
(3,1,1,1));
var
p,i,j:integer;
begin
writeln(' В двумерном массиве вычислить произведение');
writeln(' всех элементов массива.');
writeln(' == Дана матрица ==');
for i:=1 to 4 do

Страницы