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

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-го фактора');
   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]:=0; F[K5]:=F3+K5*F4;
      writeln('F(',K5,')=',F[K5]);
      H[K5]:=0; H[K5]:=H3+K5*H4;
      writeln('H(',K5,')=',H[K5]);
     end;
   GB2490; GB2500; GB2550;
   for K5:=1 to X do
      writeln('Z(',K5,')=',Z[K5]);




                                               10