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

    B[7]:=SS/O[7];
    SS:=0; O[8]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*P[J]*U[J]*Y[J];
        O[8]:=O[8]+(I[J]*P[J]*U[J])*(I[J]*P[J]*U[J]);
      end;
    B[8]:=SS/O[8];
  end;{GB850}
procedure GB940;
  begin
    SS:=0; O[9]:=0;
    for j:=1 to X do
      begin
        SS:=SS+Q[J]*Y[J];
        O[9]:=O[9]+Q[J]*Q[J];
      end;
    B[9]:=SS/O[9];
    SS:=0; O[10]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*Q[J]*Y[J];
        O[10]:=O[10]+(I[J]*Q[J])*(I[J]*Q[J]);
      end;
    B[10]:=SS/O[10];
    SS:=0; O[11]:=0;
    for J:=1 to X do
      begin
        SS:=SS+P[J]*Q[J]*Y[J];
        O[11]:=O[11]+(P[J]*Q[J])*(P[J]*Q[J]);
      end;
    B[11]:=SS/O[11];
    SS:=0; O[12]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*P[J]*Q[J]*Y[J];
        O[12]:=O[12]+(I[J]*P[J]*Q[J])*(I[J]*P[J]*Q[J]);
      end;
    B[12]:=SS/O[12];
    SS:=0; O[13]:=0;
    for J:=1 to X do
      begin
        SS:=SS+U[J]*Q[J]*Y[J];
        O[13]:=O[13]+(U[J]*Q[J])*(U[J]*Q[J]);
      end;
    B[13]:=SS/O[13];
    SS:=0; O[14]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*U[J]*Q[J]*Y[J];
        O[14]:=O[14]+(I[J]*U[J]*Q[J])*(I[J]*U[J]*Q[J]);
      end;
    B[14]:=SS/O[14];
    SS:=0; O[15]:=0;
    for J:=1 to X do
      begin
        SS:=SS+P[J]*U[J]*Q[J]*Y[J];
        O[15]:=O[15]+(P[J]*U[J]*Q[J])*(P[J]*U[J]*Q[J]);
      end;
    B[15]:=SS/O[15];
    SS:=0; O[16]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*P[J]*U[J]*Q[J]*Y[J];

                                      26