Определение сложения

Операция сложения двух матриц есть поэлементное сложение этих матрицы.

$C=A+B$

$c_{i,j}=a_{i,j}+b_{i,j}$

Здесь матрицы A и B должны имеет одинаковое число столбцов и строк. Но не обязаны быть квадратными.

Алгоритм сложения матриц

procedure Add(Var R:TMatrixNM; A:TMatrixNM; B:TMatrixNM); 
var i,j:Integer;
begin
for i:=0 to RowsCount(A)-1 do
  for j:=0 to ColumnsCount(A)-1 do
    begin
    R[i,j]:=A[i,j]+B[i,j];
    end;
end;

Входные параметры:

Прямоугольная матрица A;
Прямоугольная матрица B.

Выходные параметры:

Прямоугольная матрица R.

Примечание:

Память под матрицы A, B и R должна быть выделена. Матрицы A,B и R должны иметь одинаковое число столбцов и строк.

Операция вычитания

Определена вычитание определяется, как обратная операция к сложения.

$B=C-A$

$b_{i,j}=c_{i,j}-a_{i,j}$

Здесь матрицы A и B должны имеет одинаковое число столбцов и строк. Но не обязаны быть квадратными.

Алгоритм Вычитания матриц

procedure Sub(Var R:TMatrixNM; A:TMatrixNM; B:TMatrixNM); 
var i,j:Integer;
begin
for i:=0 to RowsCount(A)-1 do
  for j:=0 to ColumnsCount(A)-1 do
    begin
    R[i,j]:=A[i,j]-B[i,j];
    end;
end;