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

    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=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;




                                     201