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

   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];
     O[16]:=O[16]+(I[J]*P[J]*U[J]*Q[J])*(I[J]*P[J]*U[J]*Q[J]);
   end;
  B[16]:=SS/O[16];
 end;{GB940}
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
  for J:=1 to X do
   I[J]:=ste(F[J],J1)+V1;
 end;{GB2490}
procedure GB2500;
 begin
  for J:=1 to X do
   P[J]:=ste(H[J],J2)+V2;
 end;{GB2500}
procedure GB2510;
 begin
  for J:=1 to X do
   U[J]:=ste(L[J],J3)+V3;
 end;{GB2510}
procedure GB2520;
 begin
  for J:=1 to X do
   Q[J]:=ste(K[J],J4)+V4;
 end;{GB2520}
procedure GB2540;
 begin
  for J:=1 to X do
   Z[J]:=B[1]+B[2]*I[J];
 end;{GB2540}
procedure GB2550;
 begin
  for J:=1 to X do
   Z[J]:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
 end;{GB2550}
procedure GB2570;




                                                    25