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

  Программа TNV1(два модуля tpgl1, 2-ой вариант _Х=2_, _Х=4_, _Х=8_,
                   Х=16, «система» до «модели»)



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,'│ │                 Зна');

                                  80