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

  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];
        N6:=B[12]*K[J]*U[J]+B[13]*V[J]+B[14]*I[J]*V[J];
        Z[J]:=N3+N4+N5+N6+B[15]*K[J]*V[J];
      end;
  end;{GB4530}
procedure GB4580;
  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]+B[12]*K[J]*U[J];
        N6:=B[13]*L[J]+B[14]*P[J]*L[J]+B[15]*Q[J]*L[J];
        Z[J]:=N3+N4+N5+N6+B[16]*L[J]*U[J];
      end;
  end;{GB4580}
procedure GB4630;
  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];
        N6:=B[12]*K[J]*U[J]+B[13]*V[J]+B[14]*I[J]*V[J]+B[15]*K[J]*V[J];
        N7:=B[16]*L[J]+B[17]*P[J]*L[J]+B[18]*Q[J]*L[J]+B[19]*L[J]*U[J];
        Z[J]:=N3+N4+N5+N6+N7+B[20]*L[J]*V[J];
      end;
  end;{GB4630}
procedure GB4690;
  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];
        N6:=B[12]*K[J]*U[J]+B[13]*V[J]+B[14]*I[J]*V[J]+B[15]*K[J]*V[J];
        N7:=B[16]*L[J]+B[17]*P[J]*L[J]+B[18]*Q[J]*L[J]+B[19]*L[J]*U[J];
        R3:=B[20]*L[J]*V[J]+B[21]*M[J]+B[22]*P[J]*M[J];
        R4:=B[23]*Q[J]*M[J]+B[24]*U[J]*M[J]+B[25]*M[J]*V[J];
        Z[J]:=N3+N4+N5+N6+N7+R3+R4;
      end;
  end;{GB4690}
procedure GB4390;
  begin
    for J:=1 to X do
      Z[J]:=B[1]+B[2]*I[J]+B[3]*K[J];
  end;{GB4390}
procedure GB4770;
  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]+B[12]*P[J]*U[J];
        N6:=B[13]*I[J]*P[J]*U[J]+B[14]*V[J]+B[15]*I[J]*V[J];
        N7:=B[16]*P[J]*V[J]+B[17]*U[J]*K[J]+B[18]*U[J]*Q[J];
        R0:=B[19]*I[J]*P[J]*V[J]+B[20]*I[J]*U[J]*Q[J];
        R4:=B[21]*P[J]*U[J]*K[J]+B[22]*K[J]*V[J]+B[23]*Q[J]*V[J];
        R5:=B[24]*I[J]*Q[J]*V[J]+B[25]*P[J]*K[J]*V[J];

                                    67