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

    end;
  if PR=75 then
    begin
      for J:=1 to X do
      begin
       write(F0,'├────┼──────────┼──────────┼');
       writeln(F0,'──────────┼──────────┤');
       write(F0,'│ ',J:2,' │',F[J]:10,'│',H[J]:10,'│');
       writeln(F0,L[J]:10,'│',Z[J]:10,'│');
      end;
       write(F0,'└────┴──────────┴──────────┴');
       writeln(F0,'──────────┴──────────┘');
    end;
  end;
end.



В программе W4 величины имеют такие же обозначения, как в программе NV6.
Но при использовании программы W4 надо вводить данные через пробел.
Ниже проведены результаты выполнения программы W4 по данным табл. 3.




Выполнение программы математического моделирования
  tpg3_1(w4_1). (Программа на языке Турбо-Паскаль).
     Autor Chernyy Anatoly Alekseevech
X=16
A1= 0.0000000000E+00 C1= 2.5000000000E+01 D1= 7.5000000000E+01
B1= 1.0000000000E+02 J1= 1.0000000000E+00 O1= 2.0000000000E+00
P1= 3.0000000000E+00
Коэффициенты ортогонализации
V1=-5.0000002500E+01 U1=-1.0000000950E+02 Q1= 9.3750072501E+02
I1=-1.5000001967E+02 M1= 5.3750024266E+03 F1=-1.8750054874E+04
A2= 2.9300000000E+02 C2= 4.3800000000E+02 D2= 7.2800000000E+02
B2= 8.7300000000E+02 J2= 1.0000000000E+00 O2= 2.0000000000E+00
P2= 3.0000000000E+00
Коэффициенты ортогонализации
V2=-5.8300000000E+02 U2=-1.1660000000E+03 Q2= 2.8732650000E+05
I2=-1.7490000000E+03 M2= 9.4818199994E+05 F2=-1.5647953199E+08
Показатели Y(J)
Y(1)= 7.5000000000E+00
Y(2)= 1.0000000000E+02
Y(3)= 1.5000000000E+00
Y(4)= 1.5000000000E+01
Y(5)= 6.0000000000E+00
Y(6)= 9.5000000000E+01
Y(7)= 2.5000000000E+00
Y(8)= 5.2000000000E+01
Y(9)= 2.0000000000E+01
Y(10)= 1.7500000000E+01
Y(11)= 1.0000000000E+01
Y(12)= 2.5000000000E+00
Y(13)= 6.7000000000E+01
Y(14)= 6.1000000000E+01
Y(15)= 3.4500000000E+01
Y(16)= 9.0000000000E+00
B(J) до анализа
B(1)= 3.1312500000E+01
B(2)= 6.1050005458E-01

                                               82