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

     SS:=SS+P[J]*M[J]*Y[J];
     O[22]:=O[22]+(P[J]*M[J])*(P[J]*M[J]);
    end;
  B[22]:=SS/O[22]; SS:=0; O[23]:=0;
  for J:=1 to X do
    begin
     SS:=SS+Q[J]*M[J]*Y[J];
     O[23]:=O[23]+(Q[J]*M[J])*(Q[J]*M[J]);
    end;
  B[23]:=SS/O[23]; SS:=0; O[24]:=0;
  for J:=1 to X do
    begin
     SS:=SS+U[J]*M[J]*Y[J];
     O[24]:=O[24]+(U[J]*M[J])*(U[J]*M[J]);
    end;
  B[24]:=SS/O[24]; SS:=0; O[25]:=0;
  for J:=1 to X do
    begin
     SS:=SS+M[J]*V[J]*Y[J];
     O[25]:=O[25]+(M[J]*V[J])*(M[J]*V[J]);
    end;
  B[25]:=SS/O[25];
 end;{GB1830}
procedure GB2000;
 begin
  SS:=0; O[4]:=0;
  for J:=1 to X do
    begin
     SS:=SS+L[J]*Y[J];
     O[4]:=O[4]+L[J]*L[J];
    end;
  B[4]:=SS/O[4];
 end;{GB2000}
procedure GB2020;
 begin
  SS:=0; O[5]:=0;
  for J:=1 to X do
    begin
     SS:=SS+M[J]*Y[J];
     O[5]:=O[5]+M[J]*M[J];
    end;
  B[5]:=SS/O[5];
 end;{GB2020}
procedure GB3860(A,B,C,D,E,N,R,S,W:real;
var V0,U0,Q0,I0,M0,F0,G0,H0,K0,L0:real);
 var
  N0,R0,S0,W0,L2,N3,K2,R3,M2,S3,N4,N5:real;
  N6,N7,N8,N9,R4,R5,R6,R7,S4,S5,P0:real;
  Z1,Z2,Z3,Z4,Z5,Z6,Z7,Z0,Z8,Z9,T7:real;
  T8,T9,G3,G4,G5,G6,G7:real;
 begin
  N0:=(ste(A,N)+ste(B,N)+ste(C,N)+ste(D,N)+ste(E,N))/5;
  R0:=(ste(A,R)+ste(B,R)+ste(C,R)+ste(D,R)+ste(E,R))/5;
  S0:=(ste(A,S)+ste(B,S)+ste(C,S)+ste(D,S)+ste(E,S))/5;
  W0:=(ste(A,W)+ste(B,W)+ste(C,W)+ste(D,W)+ste(E,W))/5;
  L2:=2*N;
  N3:=(ste(A,L2)+ste(B,L2)+ste(C,L2)+ste(D,L2)+ste(E,L2))/5;




                                                 194