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

begin
 SS:=0; O[17]:=0;
 for J:=1 to X do
  begin
    SS:=SS+V[J]*Y[J];
    O[17]:=O[17]+V[J]*V[J];
  end;
 B[17]:=SS/O[17];
 SS:=0; O[18]:=0;
 for J:=1 to X do
  begin
    SS:=SS+I[J]*V[J]*Y[J];
    O[18]:=O[18]+(I[J]*V[J])*(I[J]*V[J]);
  end;
 B[18]:=SS/O[18];
 SS:=0; O[19]:=0;
 for J:=1 to X do
  begin
    SS:=SS+P[J]*V[J]*Y[J];
    O[19]:=O[19]+(P[J]*V[J])*(P[J]*V[J]);
  end;
 B[19]:=SS/O[19];
 SS:=0; O[20]:=0;
 for J:=1 to X do
  begin
    SS:=SS+I[J]*P[J]*V[J]*Y[J];
    O[20]:=O[20]+(I[J]*P[J]*V[J])*(I[J]*P[J]*V[J]);
  end;
 B[20]:=SS/O[20];
 SS:=0; O[21]:=0;
 for J:=1 to X do
  begin
    SS:=SS+U[J]*V[J]*Y[J];
    O[21]:=O[21]+(U[J]*V[J])*(U[J]*V[J]);
  end;
 B[21]:=SS/O[21];
 SS:=0; O[22]:=0;
 for J:=1 to X do
  begin
    SS:=SS+I[J]*U[J]*V[J]*Y[J];
    O[22]:=O[22]+(I[J]*U[J]*V[J])*(I[J]*U[J]*V[J]);
  end;
 B[22]:=SS/O[22];
 SS:=0; O[23]:=0;
 for J:=1 to X do
  begin
    SS:=SS+P[J]*U[J]*V[J]*Y[J];
    O[23]:=O[23]+(P[J]*U[J]*V[J])*(P[J]*U[J]*V[J]);
  end;
 B[23]:=SS/O[23];
 SS:=0; O[24]:=0;
 for J:=1 to X do
  begin
    SS:=SS+I[J]*P[J]*U[J]*V[J]*Y[J];
    O[24]:=O[24]+(I[J]*P[J]*U[J]*V[J])*(I[J]*P[J]*U[J]*V[J]);
  end;
 B[24]:=SS/O[24];




                                                  113