Комплекс компьютерных программ эффективного математического моделирования на языке Турбо Паскаль. Черный А.А. - 13 стр.

     J5:=0;
     J5:=abs(K7)/(abs(K7)+abs(K8));
     writeln('J5:=abs(K7)/(abs(K7)+abs(K8))');
     writeln('J5=',J5);
     writeln(F0,'J5:=abs(K7)/(abs(K7)+abs(K8))');
     writeln(F0,'J5=',J5);
     writeln(F0,'Построение графика. Excel');
     writeln(F0,'Зависимость KK6(K5) от фактора');
     writeln(F0,'KK6(K5)-относительная величина показателя');
     writeln(F0,'K5-номер величины фактора и показателя');
     writeln('if I0=92 then GB7000');
     writeln('if I0=94 then goto 1');
     write('I0=');
     readln(I0);
     if I0=92 then GB7000;
     if I0=94 then goto 1;
  1: until I0=94;
     end;{GB7000}
procedure tablF9;
 begin
  writeln('Значения F7 для 5% уровня знач-ти');
  writeln('┌───┬───────────────────────────┐');
  writeln('│ │            F9         │');
  writeln('│F8 ├────┬─────┬─────┬─────┬────┤');
  writeln('│ │ 1 │ 3 │ 7 │ 15 │ 31 │');
  writeln('├───┼────┼─────┼─────┼─────┼────┤');
  writeln('│ 2 │19.0│19.16│19.36│19.42│9.46│');
  writeln('├───┼────┼─────┼─────┼─────┼────┤');
  writeln('│ 3 │9.55│ 9.28│ 8.88│ 8.71│8.62│');
  writeln('├───┼────┼─────┼─────┼─────┼────┤');
  writeln('│ 4 │6.94│ 6.59│ 6.09│ 5.87│5.74│');
  writeln('├───┼────┼─────┼─────┼─────┼────┤');
  writeln('│ 5 │5.79│ 5.41│ 4.88│ 4.64│4.5 │');
  writeln('├───┼────┼─────┼─────┼─────┼────┤');
  writeln('│ 6 │5.14│ 4.76│ 4.21│ 3.96│3.81│');
  writeln('└───┴────┴─────┴─────┴─────┴────┘');
 end;
procedure OUT_Z_B;
 begin
   writeln(F0,'Расчетные показатели Z(J) до анализа B(J)');
   writeln('Расчетные показатели 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,'├────┼──────────┼──────────┼──────────┤');
     writeln(F0,'│ ',J:2,' │',Y[J]:10,'│',Z[J]:10,'│',
     (Y[J]-Z[J]):10,'│');
     writeln('│ ',J:2,' │',Y[J]:10,'│',Z[J]:10,'│',
     (Y[J]-Z[J]):10,'│');
    end;
  writeln(F0,'└────┴──────────┴──────────┴──────────┘');
 end;
{========================Основная программа=======================}
begin




                                        13