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

  for J:=1 to X do
   begin
     SS:=SS+K[J]*Q[J]*Y[J];
     O[9]:=O[9]+(K[J]*Q[J])*(K[J]*Q[J]);
   end;
  B[9]:=SS/O[9];
 end;{GB1480}
procedure GB2040;
 begin
  SS:=0; O[10]:=0;
  for J:=1 to X do
   begin
     SS:=SS+U[J]*Y[J];
     O[10]:=O[10]+U[J]*U[J];
   end;
  B[10]:=SS/O[10]; SS:=0; O[11]:=0;
  for J:=1 to X do
   begin
     SS:=SS+I[J]*U[J]*Y[J];
     O[11]:=O[11]+(I[J]*U[J])*(I[J]*U[J]);
   end;
  B[11]:=SS/O[11]; SS:=0; O[12]:=0;
  for J:=1 to X do
   begin
     SS:=SS+P[J]*U[J]*Y[J];
     O[12]:=O[12]+(P[J]*U[J])*(P[J]*U[J]);
   end;
  B[12]:=SS/O[12]; SS:=0; O[13]:=0;
  for J:=1 to X do
   begin
     SS:=SS+I[J]*P[J]*U[J]*Y[J];
     O[13]:=O[13]+(I[J]*P[J]*U[J])*(I[J]*P[J]*U[J]);
   end;
  B[13]:=SS/O[13]; SS:=0; O[14]:=0;
  for J:=1 to X do
   begin
     SS:=SS+V[J]*Y[J];
     O[14]:=O[14]+V[J]*V[J];
   end;
  B[14]:=SS/O[14]; SS:=0; O[15]:=0;
  for J:=1 to X do
   begin
     SS:=SS+I[J]*V[J]*Y[J];
     O[15]:=O[15]+(I[J]*V[J])*(I[J]*V[J]);
   end;
  B[15]:=SS/O[15]; SS:=0; O[16]:=0;
  for J:=1 to X do
   begin
     SS:=SS+P[J]*V[J]*Y[J];
     O[16]:=O[16]+(P[J]*V[J])*(P[J]*V[J]);
   end;
  B[16]:=SS/O[16]; SS:=0; O[17]:=0;
  for J:=1 to X do
   begin
     SS:=SS+U[J]*K[J]*Y[J];
     O[17]:=O[17]+(U[J]*K[J])*(U[J]*K[J]);
   end;




                                                  388