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

 writeln(F0,'+',H1:10,'*F(J)^',O1:10,'+',K1:10,'*F(J)^',I1:10,'+',L1:10);
      end;
    if (X=12)or(X=15) or (X=16) or (X=20) or (X=25) then
      begin
 writeln(F0,'P(J)=H(J)^',J2:10,'+',V2:10,',');
 writeln(F0,'Q(J)=H(J)^',O2:10,'+',U2:10,'*H(J)^',J2:10,'+',Q2:10,',');
 writeln(F0,'U(J)=H(J)^',P2:10,'+',I2:10,'*H(J)^',O2:10,'+');
 writeln(F0,'+',M2:10,'*H(J)^',J2:10,'+',F2:10);
      end;
    if (X=12) or (X=15) or (X=20) or (X=25) then
      begin
 writeln(F0,'V(J)=H(J)^',T2:10,'+',G2:10,'*H(J)^',P2:10,'+');
 writeln(F0,'+',H2:10,'*H(J)^',O2:10,'+',K2:10,'*H(J)^',J2:10,'+');
 writeln(F0,'+',L2:10);
      end;
   end;{GB4880}
procedure GB7000;
 label 1;
 begin
  repeat
   writeln('vvod X');
   readln(X);
   writeln('X=',X);
   writeln(F0,'X=',X);
   if (X=3)or(X=4)or(X=5) then I0:=61;
   if (X=9)or(X=12)or(X=15)or(X=16)or(X=20)or(X=25) then I0:=62;
   if X=27 then I0:=63;
   if I0=61 then
     begin
       case X of
         3: I0:=73;
         4: I0:=74;
         5: I0:=75;
       end;
   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');
   readln(X,F3,F4);
   writeln(F0,'F4-шаг приращения фактора');
   writeln(F0,'X-количество значений фактора');
   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;{for}
   case I0 of
     73:begin
          GB4150; GB4390;
        end;
     74:begin




                                                      481