Авторские права на произведения науки, программы для ЭВМ. Черный А.А. - 281 стр.

  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;
 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];




                                               281