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

      begin
        P[J]:=ste(H[J],J2)+V2;
        Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
      end;
  end;{GB4170}
procedure GB4190;
  begin
    for J:=1 to X do
      begin
        U[J]:=ste(L[J],J3)+V3;
        V[J]:=ste(L[J],O3)+U3*ste(L[J],J3)+Q3;
      end;
  end;{GB4190}
procedure GB4250;
  begin
    for J:=1 to X do
      begin
        P[J]:=ste(H[J],J2)+V2;
        Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
        U[J]:=ste(H[J],P2)+I2*ste(H[J],O2)+M2*ste(H[J],J2)+F2;
      end;
  end;{GB4250}
procedure GB4340;
  begin
    for J:=1 to X do
      begin
        P[J]:=ste(H[J],J2)+V2;
        Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
        U[J]:=ste(H[J],P2)+I2*ste(H[J],O2)+M2*ste(H[J],J2)+F2;
        V[J]:=ste(H[J],T2)+G2*ste(H[J],P2)+H2*ste(H[J],O2)
        +K2*ste(H[J],J2)+L2;
      end;
  end;{GB4340}
procedure GB4400;
  begin
    for J:=1 to X do
      Z[J]:=B[1]+B[2]*I[J]+B[3]*K[J]+B[4]*L[J];
  end;{GB4400}
procedure GB4420;
  begin
    for J:=1 to X do
      Z[J]:=B[1]+B[2]*I[J]+B[3]*K[J]+B[4]*L[J]+B[5]*M[J];
  end;{GB4420}
procedure GB4450;
  begin
    for J:=1 to X do
      begin
        N3:=B[1]+B[2]*I[J]+B[3]*K[J]+B[4]*P[J];
        N4:=B[5]*I[J]*P[J]+B[6]*Q[J]+B[7]*I[J]*Q[J];
        N5:=B[8]*P[J]*K[J]+B[9]*K[J]*Q[J];
        Z[J]:=N3+N4+N5;
      end;
  end;{GB4450}
procedure GB4490;
  begin
    for J:=1 to X do
      begin
        N3:=B[1]+B[2]*I[J]+B[3]*K[J]+B[4]*P[J];
        N4:=B[5]*I[J]*P[J]+B[6]*Q[J]+B[7]*I[J]*Q[J]+B[8]*P[J]*K[J];
        N5:=B[9]*K[J]*Q[J]+B[10]*U[J]+B[11]*I[J]*U[J];
        Z[J]:=N3+N4+N5+B[12]*K[J]*U[J];
      end;
  end;{GB4490}
procedure GB4530;

                                    66