Комплекс компьютерных программ эффективного математического моделирования на языке Турбо Паскаль. Черный А.А. - 266 стр.

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);
   writeln(F0,'H3=',H3,' H4=',H4);
   for K5:=1 to X do
     begin
      F[K5]:=F3+K5*F4;
      writeln('F(',K5,')=',F[K5]);
      H[K5]:=H3+K5*H4;
      writeln('H(',K5,')=',H[K5]);
      case I0 of
        76:begin
           GB4150; GB4170; GB4450;
          end;
        77:begin
           GB4150; GB4250; GB4490;
          end;
        78:begin
           GB4150; GB4340; GB4530;
          end;
        79:begin
           GB4210; GB4250; GB4580;
          end;
        80:begin
           GB4210; GB4340; GB4630;
          end;
        81:begin
           GB4290; GB4340; GB4690;
          end;
      end;{case}
      writeln('Z(',K5,')=',Z[K5]);
     end;{for}
     for K5:=1 to X do
      writeln('Z(',K5,')=',Z[K5]);
   OUT_F_H_L(74);
  end;{if}
if I0=63 then
  begin
   K5:=0; F3:=0; F4:=0; H3:=0;
   H4:=0; L3:=0; L4:=0;
   writeln('Факторы F(1)=F3+F4, H(1)=H3+H4, L(1)=L3+L4');
   writeln(F0,'Факторы F(1)=F3+F4, H(1)=H3+H4, L(1)=L3+L4');
   for J:=1 to X do
     begin




                                             266