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

    write('│F8 ├────┬─────┬─────┬─────┬────┬─────┬');
    writeln('─────┬─────┬─────┬─────┤');
    write('│ │ 2 │ 3 │ 4 │ 8 │ 11 │ 14 │');
    writeln('15-16│19-20│ 24 │26-30│');
    write('├───┼────┼─────┼─────┼─────┼────┼─────┼');
    writeln('─────┼─────┼─────┼─────┤');
    write('│ 2 │19.0│19.16│19.25│19.37│19.4│19.42│');
    writeln('19.43│19.44│19.45│19.46│');
    write('├───┼────┼─────┼─────┼─────┼────┼─────┼');
    writeln('─────┼─────┼─────┼─────┤');
    write('│ 3 │9.55│ 9.28│ 9.12│ 8.84│8.76│ 8.71│');
    writeln(' 8.69│ 8.66│ 8.64│ 8.62│');
    write('├───┼────┼─────┼─────┼─────┼────┼─────┼');
    writeln('─────┼─────┼─────┼─────┤');
    write('│ 4 │6.94│ 6.59│ 6.39│ 6.04│5.93│ 5.87│');
    writeln(' 5.84│ 5.8 │ 5.77│ 5.74│');
    write('├───┼────┼─────┼─────┼─────┼────┼─────┼');
    writeln('─────┼─────┼─────┼─────┤');
    write('│ 5 │5.79│ 5.41│ 5.19│ 4.82│ 4.7│ 4.64│');
    writeln(' 4.6 │ 4.56│ 4.53│ 4.5 │');
    write('├───┼────┼─────┼─────┼─────┼────┼─────┼');
    writeln('─────┼─────┼─────┼─────┤');
    write('│ 6 │5.14│ 4.76│ 4.53│ 4.15│4.03│ 3.96│');
    writeln(' 3.92│ 3.87│ 3.84│ 3.81│');
    write('└───┴────┴─────┴─────┴─────┴────┴─────┴');
    writeln('─────┴─────┴─────┴─────┘');
   end;
procedure OUT_F_H_L(PR:integer);
  begin
  if PR=73 then
    begin
     writeln(F0,'┌────┬─────────────────────┐');
     writeln(F0,'│ │          Значение      │');
     writeln(F0,'│ J ├──────────┬──────────┤');
     writeln(F0,'│ │ F(J) │ Z(J) │');
    end;
  if PR=74 then
    begin
     writeln(F0,'┌────┬────────────────────────────────┐');
     writeln(F0,'│ │             Значение          │');
     writeln(F0,'│ J ├──────────┬──────────┬──────────┤');
     writeln(F0,'│ │ F(J) │ H(J) │ Z(J) │');
    end;
  if PR=75 then
    begin
     write(F0,'┌────┬──────────────────────────');
     writeln(F0,'─────────────────┐');
     write(F0,'│ │                Значение');
     writeln(F0,'            │');
     write(F0,'│ J ├──────────┬──────────┬────');
     writeln(F0,'──────┬──────────┤');
     write(F0,'│ │ F(J) │ H(J) │ ');
     writeln(F0,'L(J) │ Z(J) │');
    end;
  if PR=73 then
    begin
     for J:=1 to X do
      begin
        writeln(F0,'├────┼──────────┼──────────┤');
        writeln(F0,'│ ',J:2,' │',F[J]:10,'│',Z[J]:10,'│');



                                      98