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

 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];
     R4:=B[18]*I[J]*V[J]+B[19]*P[J]*V[J]+B[20]*I[J]*P[J]*V[J];
     R5:=B[21]*U[J]*V[J]+B[22]*I[J]*U[J]*V[J];
     R6:=B[23]*P[J]*U[J]*V[J]+B[24]*I[J]*P[J]*U[J]*V[J];
     Z2:=B[25]*Q[J]*V[J]+B[26]*I[J]*Q[J]*V[J];
     Z3:=B[27]*P[J]*Q[J]*V[J]+B[28]*I[J]*P[J]*Q[J]*V[J];
     Z4:=B[29]*U[J]*Q[J]*V[J]+B[30]*I[J]*U[J]*Q[J]*V[J];
     Z5:=B[31]*P[J]*U[J]*Q[J]*V[J]+B[32]*I[J]*P[J]*U[J]*Q[J]*V[J];




                                                  51