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

  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)*Q(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,'*K(J)*U(J)+',B[13]:10,'*V(J)+');
  writeln(F0,'+',B[14]:10,'*I(J)*V(J)+',B[15]:10,'*I(J)*V(J)+');
  writeln(F0,'+',B[16]:10,'*L(J)+',B[17]:10,'*P(J)*L(J)+');
  writeln(F0,'+',B[18]:10,'*Q(J)*L(J)+',B[19]:10,'*L(J)*U(J)+');
  writeln(F0,'+',B[20]:10,'*L(J)*V(J)+',B[21]:10,'*M(J)+');
  writeln(F0,'+',B[22]:10,'*P(J)*M(J)+',B[23]:10,'*Q(J)*M(J)+');
  writeln(F0,'+',B[24]:10,'*U(J)*M(J)+',B[25]:10,'*M(J)*V(J),');
       end;
     if (X=4)or(X=5)or(X=12)or(X=15)or(X=16)or
     (X=20)or(X=20)or(X=25) 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=4)or(X=5)or(X=16)or(X=20)or(X=25)then
       begin
         writeln(F0,'L(J)=F(J)^',P1:10,'+',I1:10,'*F(J)^',O1:10,'+');
         writeln(F0,'+',M1:10,'F(J)^',J1:10,'+',F1:10);
       end;
     if (X=5)or(X=25) then
       begin
  writeln(F0,'M(J)=F(J)^',T1:10,'+',G1:10,'*F(J)^',P1:10,'+');
  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
    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-шаг приращения фактора');

                                    73