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

      begin
        SS:=SS+Q[J]*V[J]*Y[J];
        O[25]:=O[25]+(Q[J]*V[J])*(Q[J]*V[J]);
      end;
    B[25]:=SS/O[25];
    SS:=0; O[26]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*Q[J]*V[J]*Y[J];
        O[26]:=O[26]+(I[J]*Q[J]*V[J])*(I[J]*Q[J]*V[J]);
      end;
    B[26]:=SS/O[26];
    SS:=0; O[27]:=0;
    for J:=1 to X do
      begin
        SS:=SS+P[J]*Q[J]*V[J]*Y[J];
        O[27]:=O[27]+(P[J]*Q[J]*V[J])*(P[J]*Q[J]*V[J]);
      end;
    B[27]:=SS/O[27];
    SS:=0; O[28]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*P[J]*Q[J]*V[J]*Y[J];
        O[28]:=O[28]+(I[J]*P[J]*Q[J]*V[J])*(I[J]*P[J]*Q[J]*V[J]);
      end;
    B[28]:=SS/O[28];
    SS:=0; O[29]:=0;
    for J:=1 to X do
      begin
        SS:=SS+U[J]*Q[J]*V[J]*Y[J];
        O[29]:=O[29]+(U[J]*Q[J]*V[J])*(U[J]*Q[J]*V[J]);
      end;
    B[29]:=SS/O[29];
    SS:=0; O[30]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*U[J]*Q[J]*V[J]*Y[J];
        O[30]:=O[30]+(I[J]*U[J]*Q[J]*V[J])*(I[J]*U[J]*Q[J]*V[J]);
      end;
    B[30]:=SS/O[30];
    SS:=0; O[31]:=0;
    for J:=1 to X do
      begin
        SS:=SS+P[J]*U[J]*Q[J]*V[J]*Y[J];
        O[31]:=O[31]+(P[J]*U[J]*Q[J]*V[J])*(P[J]*U[J]*Q[J]*V[J]);
      end;
    B[31]:=SS/O[31];
    SS:=0; O[32]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*P[J]*U[J]*Q[J]*V[J]*Y[J];
        O[32]:=O[32]+(I[J]*P[J]*U[J]*Q[J]*V[J])*
        (I[J]*P[J]*U[J]*Q[J]*V[J]);
      end;
    B[32]:=SS/O[32];
  end;{GB1110}
procedure GB2480(A,B,N:real; var V0:real);
  begin
    V0:=-(ste(A,N)+ste(B,N))/2;
    write('Коэффициент ортогонализации ');
    write(F0,'Коэффициент ортогонализации ');
  end;{GB2480}
procedure GB2490;
  begin

                                      28