Вычисление матричного выражения средствами 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.

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

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

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

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