Вычислительная техника в инженерных расчетах и моделировании. Черный А.А. - 195 стр.

    write(F0,'│    │   F(J)   │   H(J)    │   L(J)   │');

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




                                    195