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

    for J:=1 to X do
      I[J]:=ste(F[J],J1)+V1;
  end;{GB2490}
procedure GB2500;
  begin
    for J:=1 to X do
      P[J]:=ste(H[J],J2)+V2;
  end;{GB2500}
procedure GB2510;
  begin
    for J:=1 to X do
      U[J]:=ste(L[J],J3)+V3;
  end;{GB2510}
procedure GB2520;
  begin
    for J:=1 to X do
      Q[J]:=ste(K[J],J4)+V4;
  end;{GB2520}
procedure GB2530;
  begin
    for J:=1 to X do
      V[J]:=ste(M[J],J5)+V5;
  end;{GB2530}
procedure GB2540;
  begin
    for J:=1 to X do
      Z[J]:=B[1]+B[2]*I[J];
  end;{GB2540}
procedure GB2550;
  begin
    for J:=1 to X do
      Z[J]:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
  end;{GB2550}
procedure GB2570;
  begin
    for J:=1 to X do
      begin
        N3:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
        N4:=B[5]*U[J]+B[6]*I[J]*U[J]+B[7]*P[J]*U[J];
        Z[J]:=N3+N4+B[8]*I[J]*P[J]*U[J];
      end;
  end;{GB2570}
procedure GB2600;
  begin
    for J:=1 to X do
      begin
        N3:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
        N4:=B[5]*U[J]+B[6]*I[J]*U[J]+B[7]*P[J]*U[J];
        N5:=B[8]*I[J]*P[J]*U[J]+B[9]*Q[J]+B[10]*I[J]*Q[J];
        N6:=B[11]*P[J]*Q[J]+B[12]*I[J]*P[J]*Q[J]+B[13]*U[J]*Q[J];
        N7:=B[14]*I[J]*U[J]*Q[J]+B[15]*P[J]*U[J]*Q[J];
        Z[J]:=N3+N4+N5+N6+N7+B[16]*I[J]*P[J]*U[J]*Q[J];
      end;
  end;{GB2600}
procedure GB2670;
  begin
    for J:=1 to X do
      begin
        N3:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
        N4:=B[5]*U[J]+B[6]*I[J]*U[J]+B[7]*P[J]*U[J];
        N5:=B[8]*I[J]*P[J]*U[J]+B[9]*Q[J]+B[10]*I[J]*Q[J];
        N6:=B[11]*P[J]*Q[J]+B[12]*I[J]*P[J]*Q[J]+B[13]*U[J]*Q[J];
        N7:=B[14]*I[J]*U[J]*Q[J]+B[15]*P[J]*U[J]*Q[J];
        R0:=B[16]*I[J]*P[J]*U[J]*Q[J]+B[17]*V[J];

                                      29