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

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

50
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;
end;{case}
end;{VV_DAN}
procedure OUT_Z_B;
begin
writeln('Расчетные показатели Z(J) до анализа B(J)');
writeln(F0,'Расчетные показатели
Z(J) до анализа B(J)');
writeln(F0,'┌────┬────────────────────────────────┐');
writeln(F0,'│ │ Значение │');
writeln(F0,'│ J ├──────────┬──────────┬──────────┤');
writeln(F0,'│ │ Y(J) │ Z(J) │ Y(J)-Z(J)│');
for J:=1 to X do
begin 
         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;
    end;{case}
  end;{VV_DAN}
procedure OUT_Z_B;
   begin
   writeln('Расчетные показатели Z(J) до анализа B(J)');
   writeln(F0,'Расчетные показатели Z(J) до анализа B(J)');
   writeln(F0,'┌────┬────────────────────────────────┐');
   writeln(F0,'│    │            Значение            │');
   writeln(F0,'│ J ├──────────┬──────────┬──────────┤');
   writeln(F0,'│    │   Y(J)   │   Z(J)   │ Y(J)-Z(J)│');
   for J:=1 to X do
         begin

                                      50

Страницы