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

         begin
          writeln('MIN Z(',K5,')=',Z[K5]);
          writeln(F0,'MIN Z(',K5,')=',Z[K5]);
         end;
      writeln('MIN Z(K5)=K7, MAX Z(K5)=K8');
      writeln('K6(K5)=(Z(K5)+abs(K7))/(abs(K7)+abs(K8))');
      writeln(F0,'MIN Z(K5)=K7, MAX Z(K5)=K8');
      writeln(F0,'K6(K5)=(Z(K5)+abs(K7))/(abs(K7)+abs(K8))');
      for K5:=1 to X do
       begin
         KK6[K5]:=(Z[K5]+abs(K7))/(abs(K7)+abs(K8));
         writeln('K6(',K5,')=',KK6[K5]);
         writeln(F0,'K6(',K5,')=',KK6[K5]);
       end;
      J5:=0;
      J5:=abs(K7)/(abs(K7)+abs(K8));
      writeln('J5:=abs(K7)/(abs(K7)+abs(K8))');
      writeln('J5=',J5);
      writeln(F0,'J5:=abs(K7)/(abs(K7)+abs(K8))');
      writeln(F0,'J5=',J5);
      writeln(F0,'Построение графика, Excel');
      writeln(F0,'Зависимость KK6(K5) от фактора');
      writeln(F0,'KK6(K5)-относительная величина показателя');
      writeln(F0,'K5-номер величины фактора и показателя');
    writeln('if I0=92 then GB7000');
    writeln('if I0=94, то выход ');
    write('I0=');
    readln(I0);
    if I0=92 then GB7000;
    if I0=94 then goto 1;
 1: until I0=94;
   end;{GB7000}
procedure tablF9;
 begin
  writeln('Значения F7 для 5% уровня знач-ти');
  writeln('┌───┬───────────────────────────┐');
  writeln('│ │            F9        │');
  writeln('│F8 ├────┬─────┬─────┬─────┬────┤');
  writeln('│ │ 1 │ 3 │ 7 │ 15 │ 31 │');
  writeln('├───┼────┼─────┼─────┼─────┼────┤');
  writeln('│ 2 │19.0│19.16│19.36│19.42│9.46│');
  writeln('├───┼────┼─────┼─────┼─────┼────┤');
  writeln('│ 3 │9.55│ 9.28│ 8.88│ 8.71│8.62│');
  writeln('├───┼────┼─────┼─────┼─────┼────┤');
  writeln('│ 4 │6.94│ 6.59│ 6.09│ 5.87│5.74│');
  writeln('├───┼────┼─────┼─────┼─────┼────┤');
  writeln('│ 5 │5.79│ 5.41│ 4.88│ 4.64│4.5 │');
  writeln('├───┼────┼─────┼─────┼─────┼────┤');
  writeln('│ 6 │5.14│ 4.76│ 4.21│ 3.96│3.81│');
  writeln('└───┴────┴─────┴─────┴─────┴────┘');
 end;
procedure OUT_Z_B;

                                        170