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

writeln(F0,' по математической модели');
writeln(F0,' с ипользованием циклов');
writeln(F0,'X=',X);
 case X of
   2: I0:=73;
   4: I0:=74;
   8: I0:=75;
   16: I0:=76;
 end;
 if I0=73 then
   begin
    K5:=0; F3:=0; F4:=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]:=0; 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
    K5:=0; F3:=0; F4:=0; H3:=0; H4:=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-го фактора');

                                        61