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

     end;
   B[18]:=SS/O[18]; SS:=0; O[19]:=0;
   for J:=1 to X do
     begin
       SS:=SS+I[J]*P[J]*V[J]*Y[J];
       O[19]:=O[19]+(I[J]*P[J]*V[J])*(I[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]*U[J]*Q[J]*Y[J];

        O[20]:=O[20]+(I[J]*U[J]*Q[J])*(I[J]*U[J]*Q[J]);
      end;
    B[20]:=SS/O[20]; SS:=0; O[21]:=0;
    for J:=1 to X do
      begin
        SS:=SS+P[J]*U[J]*K[J]*Y[J];
        O[21]:=O[21]+(P[J]*U[J]*K[J])*(P[J]*U[J]*K[J]);
      end;
    B[21]:=SS/O[21]; SS:=0; O[22]:=0;
    for J:=1 to X do
      begin
        SS:=SS+K[J]*V[J]*Y[J];
        O[22]:=O[22]+(K[J]*V[J])*(K[J]*V[J]);
      end;
    B[22]:=SS/O[22]; SS:=0; O[23]:=0;
    for J:=1 to X do
      begin
        SS:=SS+Q[J]*V[J]*Y[J];
        O[23]:=O[23]+(Q[J]*V[J])*(Q[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]*Q[J]*V[J]*Y[J];
        O[24]:=O[24]+(I[J]*Q[J]*V[J])*(I[J]*Q[J]*V[J]);
      end;
    B[24]:=SS/O[24]; SS:=0; O[25]:=0;
    for J:=1 to X do
      begin
        SS:=SS+P[J]*K[J]*V[J]*Y[J];
        O[25]:=O[25]+(P[J]*K[J]*V[J])*(P[J]*K[J]*V[J]);
      end;
    B[25]:=SS/O[25]; SS:=0; O[26]:=0;
    for J:=1 to X do
      begin
        SS:=SS+U[J]*K[J]*Q[J]*Y[J];
        O[26]:=O[26]+(U[J]*K[J]*Q[J])*(U[J]*K[J]*Q[J]);
      end;
    B[26]:=SS/O[26]; SS:=0; O[27]:=0;
    for J:=1 to X do
      begin
        SS:=SS+K[J]*Q[J]*V[J]*Y[J];
        O[27]:=O[27]+(K[J]*Q[J]*V[J])*(K[J]*Q[J]*V[J]);
      end;
    B[27]:=SS/O[27];
  end;{GB2040}
procedure GB3660(A,B,E,N,R:real; var V0,U0,Q0:real);
  var L2,N0,R0,N3,N4,N5:real;
  begin
    N0:=(ste(A,N)+ste(B,N)+ste(E,N))/3;
    R0:=(ste(A,R)+ste(B,R)+ste(E,R))/3;
    L2:=2*N;

                                    63