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

    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,'│');
      end;
        writeln(F0,'└────┴──────────┴──────────┘');
    end;
  if PR=74 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,'│',Z[J]:10,'│');
      end;
    writeln(F0,'└────┴──────────┴──────────┴──────────┘');
    end;
  if PR=75 then
    begin
      for J:=1 to X do
      begin
        write(F0,'├────┼──────────┼──────────┼');
        writeln(F0,'──────────┼──────────┤');



                                      66