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

    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,'──────────┼──────────┤');
        write(F0,'│ ',J:2,' │',F[J]:10,'│',H[J]:10,'│');




                                     269