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

SS:=0; O[25]:=0;
for J:=1 to X do
 begin
   SS:=SS+Q[J]*V[J]*Y[J];
   O[25]:=O[25]+(Q[J]*V[J])*(Q[J]*V[J]);
 end;
B[25]:=SS/O[25];
SS:=0; O[26]:=0;
for J:=1 to X do
 begin
   SS:=SS+I[J]*Q[J]*V[J]*Y[J];
   O[26]:=O[26]+(I[J]*Q[J]*V[J])*(I[J]*Q[J]*V[J]);
 end;
B[26]:=SS/O[26];
SS:=0; O[27]:=0;
for J:=1 to X do
 begin
   SS:=SS+P[J]*Q[J]*V[J]*Y[J];
   O[27]:=O[27]+(P[J]*Q[J]*V[J])*(P[J]*Q[J]*V[J]);
 end;
B[27]:=SS/O[27];
SS:=0; O[28]:=0;
for J:=1 to X do
 begin
   SS:=SS+I[J]*P[J]*Q[J]*V[J]*Y[J];
   O[28]:=O[28]+(I[J]*P[J]*Q[J]*V[J])*(I[J]*P[J]*Q[J]*V[J]);
 end;
B[28]:=SS/O[28];
SS:=0; O[29]:=0;
for J:=1 to X do
 begin
   SS:=SS+U[J]*Q[J]*V[J]*Y[J];
   O[29]:=O[29]+(U[J]*Q[J]*V[J])*(U[J]*Q[J]*V[J]);
 end;
B[29]:=SS/O[29];
SS:=0; O[30]:=0;
for J:=1 to X do
 begin
   SS:=SS+I[J]*U[J]*Q[J]*V[J]*Y[J];
   O[30]:=O[30]+(I[J]*U[J]*Q[J]*V[J])*(I[J]*U[J]*Q[J]*V[J]);
 end;
B[30]:=SS/O[30];
SS:=0; O[31]:=0;
for J:=1 to X do
 begin
   SS:=SS+P[J]*U[J]*Q[J]*V[J]*Y[J];
   O[31]:=O[31]+(P[J]*U[J]*Q[J]*V[J])*(P[J]*U[J]*Q[J]*V[J]);
 end;
B[31]:=SS/O[31];
SS:=0; O[32]:=0;
for J:=1 to X do
 begin
   SS:=SS+I[J]*P[J]*U[J]*Q[J]*V[J]*Y[J];
   O[32]:=O[32]+(I[J]*P[J]*U[J]*Q[J]*V[J])*
   (I[J]*P[J]*U[J]*Q[J]*V[J]);
 end;
B[32]:=SS/O[32];




                                                75