Применение вычислительной техники при моделировании - 54 стр.

   writeln(F0,'V2=',V2,' U2=',U2,' Q2=',Q2);
   writeln(F0,'I2=',I2,' M2=',M2,' F2=',F2);
   writeln(F0,'G2=',G2,' H2=',H2,' K2=',K2);
   writeln(F0,'L2=',L2);
  end;
3: begin
   VVOD31;
   GB3660(A1,E1,B1,J1,O1,V1,U1,Q1);
   writeln('Коэффициенты ортогонализации');
   writeln(F0,'Коэффициенты ортогонализации');
   writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
   writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
  end;
12:begin
   VVOD31;
   GB3660(A1,E1,B1,J1,O1,V1,U1,Q1);
   writeln('Коэффициенты ортогонализации');
   writeln(F0,'Коэффициенты ортогонализации');
   writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
   writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
   VVOD42;
   GB3710(A2,C2,D2,B2,J2,O2,P2,V2,U2,Q2,I2,M2,F2);
   writeln('Коэффициенты ортогонализации');
   writeln(F0,'Коэффициенты ортогонализации');
   writeln('V2=',V2,' U2=',U2,' Q2=',Q2);
   writeln('I2=',I2,' M2=',M2,' F2=',F2);
   writeln(F0,'V2=',V2,' U2=',U2,' Q2=',Q2);
   writeln(F0,'I2=',I2,' M2=',M2,' F2=',F2);
  end;
9: begin
   VVOD31;
   GB3660(A1,E1,B1,J1,O1,V1,U1,Q1);
   writeln('Коэффициенты ортогонализации');
   writeln(F0,'Коэффициенты ортогонализации');
   writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
   writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
   VVOD32;
   GB3660(A2,E2,B2,J2,O2,V2,U2,Q2);
   writeln('Коэффициенты ортогонализации');
   writeln(F0,'Коэффициенты ортогонализации');
   writeln('V2=',V2,' U2=',U2,' Q2=',Q2);
   writeln(F0,'V2=',V2,' U2=',U2,' Q2=',Q2);
  end;
27:begin
   VVOD31;
   GB3660(A1,E1,B1,J1,O1,V1,U1,Q1);
   writeln('Коэффициенты ортогонализации');
   writeln(F0,'Коэффициенты ортогонализации');
   writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
   writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
   VVOD32;
   GB3660(A2,E2,B2,J2,O2,V2,U2,Q2);
   writeln('Коэффициенты ортогонализации');
   writeln(F0,'Коэффициенты ортогонализации');
   writeln('V2=',V2,' U2=',U2,' Q2=',Q2);
   writeln(F0,'V2=',V2,' U2=',U2,' Q2=',Q2);
   VVOD33;
   GB3660(A3,E3,B3,J3,O3,V3,U3,Q3);
   writeln('Коэффициенты ортогонализации');
   writeln(F0,'Коэффициенты ортогонализации');
   writeln('V3=',V3,' U3=',U3,' Q3=',Q3);
   writeln(F0,'V3=',V3,' U3=',U3,' Q3=',Q3);
  end;

                                              54