Улучшение способов получения пористых материалов и изделий на основе изобретений и моделирования. Черный А.А. - 162 стр.

Программа TNV5(два модуля tpgl1, 3-я часть, Х=2, Х=4, Х=8, _Х=16_, Х=32,
              «система» после «адекватно», 23.1-32.2)…


program tpgl1_1;
uses 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 ├──────────┬──────────┬─────────');
                                  162