Перемножение Матриц Делфи

Перемножение матриц является одной из основных операций в линейной алгебре, которая широко применяется в программировании. В Delphi можно перемножать матрицы с помощью стандартных функций массивов.

Для начала определим две матрицы:

var  Matrix1: array[0..2, 0..2] of Integer = ((1, 2, 3), (4, 5, 6), (7, 8, 9));  Matrix2: array[0..2, 0..2] of Integer = ((9, 8, 7), (6, 5, 4), (3, 2, 1));

Для перемножения этих матриц можно использовать следующий код:

var  i, j, k: Integer;  Matrix3: array[0..2, 0..2] of Integer;for i := 0 to 2 do  for j := 0 to 2 do  begin    Matrix3[i, j] := 0;    for k := 0 to 2 do      Matrix3[i, j] := Matrix3[i, j] + Matrix1[i, k] * Matrix2[k, j];  end;

Результатом перемножения матриц будет матрица Matrix3:

for i := 0 to 2 do for j := 0 to 2 do WriteLn(Matrix3[i, j]);

Данный код выведет следующий результат:

30241884695413811490