Математическое моделирование при ортогонализации матриц. Черный А.А. - 67 стр.

         writeln('Ввод F(',S,')',' H(',S,')');
         readln(F[S],H[S]);
         case X of
         25:begin
            GB4290; GB4340; GB4690;
           end;
           else goto 2;
         end;{case}
         writeln('Z(',S,')=',Z[S]);
        end;{for}
      OUT_F_H_L(74);
     end;{if}
  2:writeln('----------------<Меню 4------------------');
   writeln('Если I0=10, то проверка точности');
   writeln('и расчеты по модели');
   writeln('Если I0=14, то вычисления ');
   writeln('показателей Z(K5) с использованием');
   writeln('циклов');
   writeln('Если I0=35, то переход к меню 1');
   writeln('Если I0=18, то переход к меню 2');
   writeln('Если I0=19, то переход к меню 3');
   writeln('Если I0=50, то переход в начало программы');
   writeln('Если I0=44, то выход из программы');
   write('Ввод I0=');
   readln(I0);
   if I0=11 then goto 1;
   if I0=18 then goto 4;
   if (I0=19)or(I0=10) then goto 5;
   if I0=35 then goto 3;
   if I0=14 then
     begin
      GB7000;
      goto 2;
     end;
   writeln('Конец работы');
   close(F0);
   end;
end.{Конец программы}

unit TPG3_2;
Interface
 type artp=array[1..50] of real;
 var
   J6,K5,S,J,I0,X,N0,K9,K4,F8,F9:integer;
   G1,T1,A1,C1,E1,D1,B1,J1,O1,A2,E2,B2,J2,O2,A3:real;
   H1,K1,L1,F1,M1,I1,P1,E3,B3,J3,O3,V1,U1,Q1,V2,U2,Q2:real;
   P2,F2,I2,H2,M2,N3,N4,N5,N6,N7,R3,R4,R0,R5,R6:real;
   S0,J5,S1,V3,U3,Q3,U9,F7,SO,F6:real;
   J9,L3,SS,L4,H4,H3,F3,F4,C2,D2,T2:real;
   T0,G2,K2,L2,K7,K8,X0,Y0,K0,K3:real;
   J7,J8,JJ9,KK5,KK6,KK7,KK8,F,H,V,L,Y,I,K,M,P,Q,U,O,B,Z,G,T:artp;
   NAME:string[8];
   F0: Text;
 procedure GB3860(A,B,C,D,E,N,R,S,W:real;
 var V0,U0,Q0,I0,M0,F0,G0,H0,K0,L0:real); function ste(Q,A:real):real;
 procedure GB1410; procedure GB1480; procedure GB1600;
 procedure GB1670; procedure GB1730; procedure GB1830;




                                                    67