Математическое моделирование на языке Турбо-Паскаль. Черный А.А. - 48 стр.

program tpg3_1;
 {Математическое моделирование}
 uses tpg3_3, tpg3_2;
  label 1,2,3,4,5;
procedure VV_DAN;
  begin
    case X of
    4: begin
         VVOD41;
         GB3710(A1,B1,C1,D1,J1,O1,P1,V1,U1,Q1,I1,M1,F1);
         writeln('Коэффициенты ортогонализации');
         writeln(F0,'Коэффициенты ортогонализации');
         writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
         writeln('I1=',I1,' M1=',M1,' F1=',F1);
         writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
         writeln(F0,'I1=',I1,' M1=',M1,' F1=',F1);
       end;
    16:begin
         VVOD41;
         GB3710(A1,B1,C1,D1,J1,O1,P1,V1,U1,Q1,I1,M1,F1);
         writeln('Коэффициенты ортогонализации');
         writeln(F0,'Коэффициенты ортогонализации');
         writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
         writeln('I1=',I1,' M1=',M1,' F1=',F1);
         writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
         writeln(F0,'I1=',I1,' M1=',M1,' F1=',F1);
         VVOD42;
         GB3710(A2,B2,C2,D2,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;
    20:begin
         VVOD41;
         GB3710(A1,B1,C1,D1,J1,O1,P1,V1,U1,Q1,I1,M1,F1);
         writeln('Коэффициенты ортогонализации');
         writeln(F0,'Коэффициенты ортогонализации');
         writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
         writeln('I1=',I1,' M1=',M1,' F1=',F1);
         writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
         writeln(F0,'I1=',I1,' M1=',M1,' F1=',F1);
         VVOD52;
         GB3860(A2,C2,E2,D2,B2,J2,O2,P2,T2,V2,U2,
         Q2,I2,M2,F2,G2,H2,K2,L2);
         writeln('Коэффициенты ортогонализации');
         writeln(F0,'Коэффициенты ортогонализации');
         writeln('V2=',V2,' U2=',U2,' Q2=',Q2);
         writeln('I2=',I2,' M2=',M2,' F2=',F2);
         writeln('G2=',G2,' H2=',H2,' K2=',K2);
         writeln('L2=',L2);
         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;
    5: begin
         VVOD51;
         GB3860(A1,B1,C1,D1,E1,J1,O1,P1,T1,V1,U1,
         Q1,I1,M1,F1,G1,H1,K1,L1);
         writeln('Коэффициенты ортогонализации');
         writeln(F0,'Коэффициенты ортогонализации');

                                      48