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

  4: I0:=74;
  8: I0:=75;
  16: I0:=76;
  32: I0:=77;
end;
if I0=73 then
  begin
   F3:=0; F4:=0; K5:=0;
   writeln('Фактор F(1)=F3+F4');
   for J:=1 to X do
     begin
      F[J]:=0; Z[J]:=0;
     end;
   writeln('F4-шаг приращения фактора');
   writeln('X-количество значений фактора');
   writeln('Ввод принятых величин X F3 F4');
   writeln(F0,'F4-шаг приращения фактора');
   writeln(F0,'X-количество значений фактора');
   writeln(F0,'Ввод принятых величин X F3 F4');
   readln(X,F3,F4);
   writeln(F0,'X=',X,' F3=',F3,' F4=',F4);
   for K5:=1 to X do
     begin
      F[K5]:=F3+K5*F4;
      writeln('F(',K5,')=',F[K5]);
     end;
   GB2490; GB2540;
   for K5:=1 to X do
      writeln('Z(',K5,')=',Z[K5]);
   OUT_F_H_L(I0);
  end;{if}
if I0=74 then
  begin
   F3:=0; F4:=0; H3:=0;
   H4:=0; K5:=0;
   writeln('Фактор F(1)=F3+F4');
   writeln(F0,'Фактор F(1)=F3+F4');
   for J:=1 to X do
     begin
      F[J]:=0; H[J]:=0; Z[J]:=0;
     end;
   writeln('F4-шаг приращения 1-го фактора');
   writeln('Фактор H(1)=H3+H4');
   writeln('H4-шаг приращения 2-го фактора');
   writeln('X-количество значений 1,2-го фактора');
   writeln('Ввод принятых величин X F3 F4 H3 H4');
   writeln(F0,'F4-шаг приращения 1-го фактора');
   writeln(F0,'Фактор H(1)=H3+H4');
   writeln(F0,'H4-шаг приращения 2-го фактора');
   writeln(F0,'X-количество значений 1,2-го фактора');
   readln(X,F3,F4,H3,H4);
   writeln(F0,'X=',X,' F3=',F3,' F4=',F4);

                                       166