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

 writeln(F0,'+',B[6]:10,'*Q(J)+',B[7]:10,'*I(J)*Q(J)+');
 writeln(F0,'+',B[8]:10,'*P(J)*K(J)+',B[9]:10,'*K(J)*Q(J),');
      end;
    if X=27 then
      begin
 writeln(F0,'Z(J)=',B[1]:10,'+',B[2]:10,'*I(J)+',B[3]:10,'*K(J)+');
 writeln(F0,'+',B[4]:10,'*P(J)+',B[5]:10,'*I(J)*P(J)+');
 writeln(F0,'+',B[6]:10,'*Q(J)+',B[7]:10,'*I(J)*Q(J)+');
 writeln(F0,'+',B[8]:10,'*P(J)*K(J)+',B[9]:10,'*K(J)*Q(J)+');
 writeln(F0,'+',B[10]:10,'*U(J)+',B[11]:10,'*I(J)*U(J)+');
 writeln(F0,'+',B[12]:10,'*P(J)*U(J)+',B[13]:10,'*I(J)*P(J)*U(J)+');
 writeln(F0,'+',B[14]:10,'*V(J)+',B[15]:10,'*I(J)*V(J)+');
 writeln(F0,'+',B[16]:10,'*P(J)*V(J)+',B[17]:10,'*U(J)*K(J)+');
 writeln(F0,'+',B[18]:10,'*U(J)*Q(J)+',B[19]:10,'*I(J)*P(J)*V(J)+');
 writeln(F0,'+',B[20]:10,'*I(J)*U(J)*Q(J)+',B[21]:10,'*P(J)*U(J)*K(J)+');
 writeln(F0,'+',B[22]:10,'*K(J)*V(J)+',B[23]:10,'*Q(J)*V(J)+');
 writeln(F0,'+',B[24]:10,'*I(J)*Q(J)*V(J)+',B[25]:10,'*P(J)*K(J)*V(J)+');
 writeln(F0,'+',B[26]:10,'*U(J)*K(J)*Q(J)+',B[27]:10,'*K(J)*Q(J)*V(J),');
      end;
    if (X=3) or (X=9) or (X=27) then
      begin
 writeln(F0,'ГДЕ');
 writeln(F0,'I(J)=F(J)^',J1:10,'+',V1:10,',');
 writeln(F0,'K(J)=F(J)^',O1:10,'+',U1:10,'*F(J)^',J1:10,'+',Q1:10);
      end;
    if (X=9) or (X=27) 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);
      end;
    if X=27 then
      begin
 writeln(F0,'U(J)=L(J)^',J3:10,'+',V3:10,',');
 write(F0,'V(J)=L(J)^',O3:10,'+',O3:10,'+',U3:10,'*L(J)^');
 writeln(F0,J3:10,'+',Q3: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) then I0:=61;
   if (X=9) then I0:=62;
   if (X=27) then I0:=63;
   if I0=61 then
     begin
       case X of
        3: I0:=73;
       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-шаг приращения фактора');



                                                      62