var i,j,p:integer;
A:array of real [1..N,1..M];
B:array of real [1..M,1..K];
C:array of real [1..N,1..K];
s:real;
...
for i:=1 to N do
for j:=1 to K do begin
C[i,j]:=0;
for p:=1 to M do C[i,j]:=C[i,j]+A[i,k]*B[k,j]
end;
Умножение масивов
Здравствуйте, помогите пожалуйста, мне срочно нужно сделать программу по умножению матриц.
Заранее спасибо.
Заранее спасибо.
Будут конкретные вопросы - поможем, а так... как я писал читай правила раздела.
http://forum.codenet.ru/showthread.php?t=35363 пункт 5
http://forum.codenet.ru/showthread.php?t=35363 пункт 5
Мне нужно любую задачу по умножению масивов. Если кто может помочь, помогите. Буду очень благодарен.
Гражданин,Вы где учитесь?Если у Вас была матричная алгебра,стыд этого не знать!..
Другое дело,если не было.В таком случае,поясняю:умножать можно матрицы только такого размера(например):i×j на j×k(т.е. чтобы число столбцов 1й матрицы равнялось числу строк 2й).В результате получится матрица размером i×k
Алгоритм умножения следующий:элемент (i,k) в новой матрице(назовём её C(i,k)) будет равен сумме произведений элементов i-й строки 1й матрицы A(i,j) на элементы k-го столбца 2й матрицы B(j,k),т.е. C(i,k)=ΣA(i,j)B(j,k).Суммирование ведётся по j,естественно
Как это реализовать–надеюсь,автор сам решит
Другое дело,если не было.В таком случае,поясняю:умножать можно матрицы только такого размера(например):i×j на j×k(т.е. чтобы число столбцов 1й матрицы равнялось числу строк 2й).В результате получится матрица размером i×k
Алгоритм умножения следующий:элемент (i,k) в новой матрице(назовём её C(i,k)) будет равен сумме произведений элементов i-й строки 1й матрицы A(i,j) на элементы k-го столбца 2й матрицы B(j,k),т.е. C(i,k)=ΣA(i,j)B(j,k).Суммирование ведётся по j,естественно
Как это реализовать–надеюсь,автор сам решит
Эх, молодость молодость. Перемножаем две матрицы AxB=C
Код: