Процедура перемножения матриц в Delphi

[rob7777]

Добрый день! Написал программу, но не уверен,что правильно, так проверку не проходит ни одно значение, посмотрите код пожалуйста..

[Sciv]

Вынужден Вас огорчить: произведение двух матриц есть матрица, а никак не вещественное число. Вот след этой самой матрицы Вам и нужно найти.

Произведение матриц (если упрощенно и без формул) получается умножением строк матрицы 1 на столбцы матрицы 2.

То есть (пример для первой строки)

c[1,1]=a[1,1]*b[1,1]+a[1,2]*b[2,1]+a[1,3]*b[3,1];
c[1,2]=a[1,1]*b[1,2]+a[1,2]*b[2,2]+a[1,3]*b[3,2];
c[1,3]=a[1,1]*b[1,3]+a[1,2]*b[2,3]+a[1,3]*b[3,3];

и т.д.

В аттаче - рабочая программа.

[rob7777]

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

произведение двух матриц есть матрица, а никак не вещественное число.

Да,точно. меня запутало задание. получается нужно найти следы исходных матриц,равные следам матриц X*Y и Y*X, да?
вопрос по коду:

Function Pr(m,n:matrix;razm:integer): matrix;
var i,j,k:integer;
sum: matrix;
begin {Рассчитываем произведение двух матриц}
for i:=0 to razm-1 do
for j:=0 to razm-1 do begin
sum[i,j]:=0;
for k:=0 to razm-1 do sum[i,j]:=sum[i,j]+m[i,k]*n[k,j];
end;
Pr:=sum;
end;

никак не могу разобраться почему,если убрать sum[i,j]:=0, то 1-ый массив нарушается. скажем Sum[0,0]=20, ведь когда цикл с K заканчивается, то j становится другим и
Sum с координатами [0,0] уже не будет?

[BDA]

В матрице sum будет изначально мусор, поэтому нужно ее обнулить.

[Sciv]

никак не могу разобраться почему,если убрать sum[i,j]:=0, то 1-ый массив нарушается. скажем Sum[0,0]=20, ведь когда цикл с K заканчивается, то j становится другим и
Sum с координатами [0,0] уже не будет?

А зачем вообще убирать? Код же правильный. И как понять - "j становится другим"? j меняется в пределах собственного цикла на конкретный шаг (1) и в одну строну (инкремент).

Как справедливо заметил BDA- матрица sum должна быть проинициализирована

нужно найти следы исходных матриц,равные следам матриц X*Y и Y*X

Я понял, что нужно найти следы не исходных, а именно матриц X*Y и Y*X. Которые, кстати, будут равны между собой для любой пары матриц.

[rob7777]

Понял,спасибо за помощь!)

[BDA]

Которые, кстати, будут равны между собой для любой пары матриц

Имхо, не одинаковые.
Взял рандомные 2 матрицы и посчитал - получил разные числа (может плохо считаю? )

[Sciv]

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

Имхо, не одинаковые.
Взял рандомные 2 матрицы и посчитал - получил разные числа (может плохо считаю? )

Считаешь хорошо, я глупости говорю
Был неправ.