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

2     5

2     3     7     4     9

5     1     4     1     7

Матрица B:

5     3

6     9     2    

1     3     7   

8     9     2    

3     5     8    

7     2     3

Матрица C:

3     2

3     2

5     1

6     7

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

Использование процедур и функций.

Для облегчения понимания текста программы и для увеличения функциональности программы можно использовать процедуры и функции. В качестве этих элементов в нашей программе мы организуем стандартные преобразования над матрицами. Далее приведены блок-схемы и тексты подпрограмм.

Транспонирование матрицы.

Чтобы транспонировать матрицу, надо заменить её строки столбцами с соответствующими номерами.

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

Выход из п/п

Вход в п/п

3

2

1

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

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

Procedure Transpmatr(m,n:Integer; A:mas; Var At:Mas);

Var i,j:Integer;

Begin

   For i:=1 to n do

      For j:=1 to m do