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

For i:=1 to 5 do

      For j:=1 to 3 do

         H[i,j]:=G[i,j]+F[i,j];

         End;

End;

   Write(File_Output,'Matr A:');

   Writeln('Matr A:');

   Writeln(File_Output);

   Writeln;

   For i:=1 to 2 do

      Begin

         For j:=1 to 5 do

            Begin

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

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

            End;

         Writeln;

         Writeln(File_Output);

      End;

   Writeln(File_Output);

   Writeln;

   Write(File_Output,'Matr B:');

   Writeln('Matr B:');

   Writeln(File_Output);

   Writeln;

   For i:=1 to 5 do

      Begin

         For j:=1 to 3 do

            Begin

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

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

            End;

         Writeln;

         Writeln(File_Output);

      End;

   Writeln(File_Output);

   Writeln;

   Write(File_Output,'Matr C:');

   Writeln('Matr C:');

   Writeln(File_Output);

   Writeln;

   For i:=1 to 3 do

      Begin

         For j:=1 to 2 do

            Begin

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

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

            End;

         Writeln;

         Writeln(File_Output);

      End;

   Writeln(File_Output);

   Writeln;

   Write(File_Output,'Matr D:');

   Writeln('Matr D:');

   Writeln(File_Output);

   Writeln;

   For i:=1 to 5 do

      Begin

         For j:=1 to 2 do

            Begin

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

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

            End;

         Writeln;

         Writeln(File_Output);

      End;

   Writeln(File_Output);

   Writeln;

   Write(File_Output,'Matr E:');

   Writeln('Matr E:');

   Writeln(File_Output);

   Writeln;

   For i:=1 to 2 do

      Begin

         For j:=1 to 3 do

            Begin

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

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

            End;

         Writeln;

         Writeln(File_Output);

      End;

   Writeln(File_Output);

   Writeln;

   Write(File_Output,'Matr F:');

   Writeln(' Matr F:');

   Writeln(File_Output);

   Writeln;

   For i:=1 to 5 do

      Begin

         For j:=1 to 3 do

            Begin

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

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

            End;

         Writeln;

         Writeln(File_Output);

      End;

   Writeln(File_Output);

   Writeln;

   Write(File_Output,' Matr G:');