Вычисление матричного выражения средствами Turbo Pascal 7.0, страница 4

         At[j,1]:=A[i,j];

End;

Умножение матриц.

Если некоторая матрица  согласована с матрицей , то произведение этих матриц есть матрица , каждый элемент которой  равен сумме попарных произведений i-ых строк матрицы A на соответствующие элементы j-ого столбца матрицы B.

Блок-схема подпрограммы:

 


Текст подпрограммы:

Procedure UmnozhMatr(m,n:Integer; A:Mas; p,q:Integer; B:Mas; Var C:Mas);

Var i,j,k:Integer;

Begin

   For i:=1 to m do

      For j:=1 to q do

         Begin

            C[i,j]:=0;

            For K:=1 to n do

               C[i,j]:=C[i,j]+A[i,k]*B[k,j];

         End;

End;

Умножение матрицы на скаляр.

Чтобы получить матрицу , где - любое число, надо каждый элемент матрицы A умножить на число .

Блок-схема подпрограммы:

 


Текст подпрограммы:

Procedure Scalyar(m,n:Integer;p:real; A:Mas; Var B:Mas);

Var i,j:Integer;

Begin

   For i:=1 to m do

      For j:=1 to n do

         B[i,j]:=A[i,j]*p;

End;

Вычитание (сложение) матриц.

Чтобы сложить (или вычесть) одну матрицу из другой надо элементы первой матрицы сложить (или из них вычесть) соответствующие элементы другой матрицы, при условии, что матрицы являются равными.

Блок-схема подпрограммы:

Вход из п/п

 

Вход в п/п

 

3

 

2

 

1

 
Блок-схема: подготовка:      i=1,mБлок-схема: подготовка:     j=1,n

 C[i,j]:=A[i,j]+B[i,j];