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

    writeln(File_Output);

    End;

      writeln(File_Output);

      writeln;

    end;

{Основная часть программы}

Begin

 Assign(File_Input,'F:\Vvl\Valia\Vhodnoi.txt');

 Assign(File_Output,'F:\Vvl\Valia\Vihodnoi.txt');

 Reset(File_Input);

 Rewrite(File_Output);

 Readln(File_Input);

 Read(File_Input,m,n);

 For i:=1 to m do

For j:=1 to n do

  Read(File_Input,A[i,j]);

  Readln(File_Input);

  Readln(File_Input);

  Readln(File_Input);

  Read(File_Input,m,n);

  For i:=1 to m do

  For j:=1 to n do

   Read(File_Input,B[i,j]);

  Readln(File_Input);

  Readln(File_Input);

  Readln(File_Input);

  Readln(File_Input,m,n);

  For i:=1 to m do

  For j:=1 to n do

   Read(File_Input,C[i,j]);

 Close(File_Input);

 Vyvod(2,5,A,'Matr A:');

 Vyvod(3,2,C,'Matr C:');

 Vyvod(5,3,B,'Matr B:');

Transpmatr(2,5,A,D);

 Vyvod(5,2,D,'Matr D:');

 Transpmatr(3,2,C,E);

 Vyvod(2,3,E,'Matr E:');

 UmnozhMatr(D,E,5,2,3,G);

 Vyvod(5,3,G,'Matr G:');

 Scalyar(5,3,0.5,B,F);

 Vyvod(5,3,F,'Matr F:');

 Plus(5,3,G,F,H);

 Vyvod(5,3,H,'Matr H:');

 close(File_Output);

 readln;

End.

Полный текст программы без подпрограмм.

Program RGZ_2; {Вычисление матричного выражения средствами Turbo Pascal   7.0

Программу выполнила студентка группы АПМ-03 Вересова В.Л.}

{Объявляем новый тип данных}

Type

   Mas=Array[1..5,1..5] of Real;

Var

   i,j,m,n,k:Integer;

   A,B,C,D,E,F,G,H:Mas;

   File_Input,File_Output:Text;

Begin

   Assign(File_Input,'F:\Valia\Vvl\Vhodnoi.txt');

   Assign(File_Output,'F:\Valia\Vvl\Vihodnoi.txt');

   Reset(File_Input);

   Rewrite(File_Output);

   Readln(File_Input);

   Read(File_Input,m,n);

   For i:=1 to m do

      For j:=1 to n do

         Read(File_Input,A[i,j]);

   Readln(File_Input);

   Readln(File_Input);

   Readln(File_Input);

   Read(File_Input,m,n);

   For i:=1 to m do

      For j:=1 to n do

         Read(File_Input,B[i,j]);

   Readln(File_Input);

   Readln(File_Input);

   Readln(File_Input);

   Read(File_Input,m,n);

   For i:=1 to m do

      For j:=1 to n do

         Read(File_Input,C[i,j]);

   Close(File_Input);

{Основная часть программы}

   For i:=1 to 2 do

      For j:=1 to 5 do

         D[j,i]:=A[i,j];

   For i:=1 to 3 do

      For j:=1 to 2 do

         E[j,i]:=C[i,j];

   For i:=1 to 5 do

      For j:=1 to 3 do

         F[i,j]:=B[i,j]*0.5;

      For i:=1 to 5 do

      For j:=1 to 3 do

         Begin

            G[i,j]:=0;

            For K:=1 to 5 do

               G[i,j]:=G[i,j]+D[i,k]*E[k,j];