14.02.2019, 23:30
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Ну и в чем проблема?
Внешним циклом бежим по столбцам.
Внутри первый внутренний цикл считает произведение элементов i-ой строки.
Второй внутренний цикл бежит по элементам столбца и прибавляет полученный результат.
Вроде вот так:
Код:
type
TSquareMatrix : Array Of Array Of Integer;
var
A, B, C : TSquareMatrix
const
MatrixSize = 10;
var
I, J, M : Integer;
begin
// Init matrices
SetLength(A,MatrixSize,MatrixSize);
SetLength(B,MatrixSize,MatrixSize);
SetLength(C,MatrixSize,MatrixSize);
// Fill A and B by random values 1..10
Randomize;
For I := Low(A) To High(A) Do
For I := Low(A[i]) To High(A[i]) Do
Begin
A[I,J] := Random(10) + 1;
B[I,J] := Random(10) + 1;
End;
// Create matrix C
For I := Low(A) To High(A) Do
Begin
M := 1;
For J := Low(A[i]) To High(A[i]) Do
M := M * B[J,I];
For J := Low(A[i]) To High(A[i]) Do
C[I,J] := A[I,J] + M;
End;
end;
|