В масивах.atavin-ta писал(а):В чём хранишь? В массивах? В объектах? Давай декларацию типа с комментариями. И определись с выбором порядка индексов. Первый индекс - строка, а второй - столбец. или наоьорот? Где размеры матриц? И что за паскаль? Turbo, или что-то другое? Алгоритм знаю. Как только ответишь на эти вопросы, сразу же дам функцию умножения. Хотя, удивляет, что с алгоритмом умножения матриц (в чистом виде высшая математика) ты обращаешься к прогрмерам.
Как не знаешь? Ты должен решить, где у тебя будут размеры (их у каждой матрицы два: число строк и число столбцов). Если в массивах, то, наверное," писал(а):незнаю где размеры,
Код: Выделить всё
type TMatrix=array[1..N,1..N] of real;{Первый индекс - строка, второй - столбец}
Код: Выделить всё
type TMatrix=array[1..N,1..N] of real;{Первый индекс - строка, второй - столбец}
function Mul(a,b:TMatrix, ARows,ACols,BRows,BCols:integer):TMatrix;
var r,c,i:Integer;
Res:TMatrix;
begin
if (ACols=BRows) and (ACols>0) and (ACols<=N) and (ARows>0) and (ARows<=N) and (BCols>0) and (BCols<=N) then
begin
for r:=1 to ARows do
for c:=1 to BCols do
begin
Res[r,c]:=0;
for i:=1 to ACols do
Res[r,c]:=Res[r,c]+A[r,i]*B[i,c];
end;
end;
Mul:=Res;
end;