Теория и практика эффективного математического моделирования. Черный А.А. - 318 стр.

 ПРОГРАММА НА ЯЗЫКЕ ТУРБО-ПАСКАЛЬ, РАЗРАБОТАННАЯ НА
               ОСНОВЕ ПРОГРАММЫ GL3
program tpgl1_1;
uses graph,tpgl1_2;
  label 1,2,3,4,5;
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=76 then
       begin
        write(F0,'┌────┬─────────────────────────────────');
        writeln(F0,'─────────────────────┐');
        write(F0,'│    │                        Значение ');
        writeln(F0,'                      │');
        write(F0,'│ J ├──────────┬──────────┬──────────┬');
        writeln(F0,'──────────┬──────────┤');
        write(F0,'│    │    F(J)   │   H(J)   │    L(J) │');
        writeln(F0,'   K(J)    │   Z(J)   │');
       end;
     if PR=77 then
       begin
        write(F0,'┌────┬─────────────────────────────────');
        writeln(F0,'────────────────────────────────┐');
        write(F0,'│    │                             Зна');
        writeln(F0,'чение                              │');
        write(F0,'│ J ├──────────┬──────────┬─────────');
        writeln(F0,'─┬──────────┬──────────┬──────────┤');
        write(F0,'│    │    F(J)   │   H(J)   │   L(J)   │');

        writeln(F0,'    K(J)   │   M(J)    │   Z(J)   │');
       end;
     if PR=73 then




                                     318