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

   Writeln(' Matr G:');

   Writeln(File_Output);

   Writeln;

   For i:=1 to 5 do

      Begin

         For j:=1 to 3 do

            Begin

               Write(G[i,j]:4:1,'   ');

               Write(File_Output,G[i,j]:4:1,'   ');

            End;

         Writeln;

         Writeln(File_Output);

      End;

   Writeln(File_Output);

   Writeln;

   Write(File_Output,'Matr H:');

   Writeln('Matr H:');

   Writeln(File_Output);

   Writeln;

   For i:=1 to 5 do

      Begin

         For j:=1 to 3 do

            Begin

               Write(H[i,j]:4:1,'   ');

               Write(File_Output,H[i,j]:4:1,'   ');

            End;

         Writeln;

         Writeln(File_Output);

      End;

   Writeln(File_Output);

   Writeln;

   Close(File_Output);

End.


Результаты счета.

Вид программы после её выполнения представлен на листе 1:

Matr A:

 2.0    3.0    7.0    4.0    9.0  

 5.0    1.0    4.0    1.0    7.0  

Matr C:

 3.0    2.0  

 5.0    1.0  

 6.0    7.0  

Matr B:

 6.0    9.0    2.0  

 1.0    3.0    7.0  

 8.0    9.0    2.0  

 3.0    5.0    8.0   

 7.0    2.0    3.0  

Matr D:

 2.0    5.0  

 3.0    1.0  

 7.0    4.0  

 4.0    1.0  

 9.0    7.0  

Matr E:

 3.0    5.0    6.0  

 2.0    1.0    7.0  

Matr G:

16.0   15.0   47.0  

11.0   16.0   25.0  

29.0   39.0   70.0  

14.0   21.0   31.0   

41.0   52.0   103.0  

Matr F:

 3.0    4.5    1.0  

 0.5    1.5    3.5  

 4.0    4.5    1.0  

 1.5    2.5    4.0  

 3.5    1.0    1.5  

Matr H:

19.0   19.5   48.0  

11.5   17.5   28.5  

33.0   43.5   71.0  

15.5   23.5   35.0  

44.5   53.0   104.5 

 

Лист 1. Вид экрана после выполнения программы в Turbo Pascal

 
 



Проверка полученных значений матриц в MS Excel.

Чтобы убедиться в правильности решения матричного выражения в среде Turbo Pascal v.7.0 приведём фрагменты рабочих листов Excel с решением того же выражения:

Лист Excel в режиме отображения данных.

На рис.1 приведён фрагмент листа Excel в режиме отображения данных.

A=

2

3

7

4

9

5

1

4

1

7

B=

6

9

2

C=

3

2

1

3

7

5

1

8

9

2

6

7

3

5

8

7

2

3

AT=D=

2

5

CT=E=

3

5

6

3

1

2

1

7

7

4

4

1

0.5*B=F=

3

4,5

1

9

7

0,5

1,5

3,5

4

4,5

1

1,5

2,5

4

3,5

1

1,5

D*E=G=

16

15

47

G+F=H=

19

19,5

48

11

16

25

11,5

17,5

28,5

29

39

70

33

43,5

71

14

21

31

15,5

23,5

35

41

52

103

44,5

53

104,5