Разработка программ для вычисления матричного выражения в среде TurboPascal, страница 3

·  Транспонирование матрицы С:

Матрица СТ
43	86	100	130
30	67	78	91
31	61	74	89
30	60	68	98

·  Умножение на скаляр (1/2):

Матрица D
21,5	43	50	65
15	33,5	39	45,5
15,5	30,5	37	44,5
15	30	34	49

3.Блок -схема алгоритма

Процедура mult

 

                                                                Вход в п/п

 

                                                                          Выход из п/п

Рис.1 Схема алгоритма подпрограммы процедуры mult.

4.Основная программа

 uses crt;

  {описание массивов и переменных}

  type

    mas=array[1..10,1..10] of real;

   var