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

  J9,L3,SS,L4,H4,H3,F3,F4,C2,D2,T2:real;
  T0,G2,K2,L2,K7,K8,X0,Y0,K0,K3:real;
  J7,J8,JJ9,KK5,KK6,KK7,KK8,F,H,V,L,Y,I,K,M,P,Q,U,O,B,Z,G,T:artp;
  NAME:string[8];
  F0: Text;
 procedure GB3660(A,B,E,N,R:real; var V0,U0,Q0:real);
 procedure GB3710(A,B,C,D,N,R,S:real; var V0,U0,Q0,I0,M0,F0:real);
 procedure GB3860(A,B,C,D,E,N,R,S,W:real;
 var V0,U0,Q0,I0,M0,F0,G0,H0,K0,L0:real); function ste(Q,A:real):real;
 procedure GB1410; procedure GB1480; procedure GB1600;
 procedure GB1670; procedure GB1730; procedure GB1830;
 procedure GB1930; procedure GB2000; procedure GB2020;
 procedure GB2040; procedure GB4150; procedure GB4210;
 procedure GB4290; procedure GB4170; procedure GB4190;
 procedure GB4250; procedure GB4340; procedure GB4400;
 procedure GB4420; procedure GB4450; procedure GB4490;
 procedure GB4530; procedure GB4580; procedure GB4630;
 procedure GB4690; procedure GB4390; procedure GB4770;
Implementation
function ste(Q,A:real):real;
{Функция возведения в степень}
 begin
  if A<0 then
     begin
       A:=abs(A);
       if Q=0 then Q:=1E-5;
       ste:=1/exp(A*ln(Q));
     end
    else
     begin
       if Q=0 then Q:=1E-5;
       if A=0 then ste:=1
            else ste:=exp(A*ln(Q));
     end;
 end;{ste}
 procedure GB1410;
  begin
    SS:=0; O[1]:=0;
    for J:=1 to X do
     begin
       SS:=SS+Y[J]; O[1]:=O[1]+1;
     end;
    B[1]:=SS/O[1];
    SS:=0; O[2]:=0;
    for J:=1 to X do
     begin
       SS:=SS+I[J]*Y[J]; O[2]:=O[2]+I[J]*I[J];
     end;
    B[2]:=SS/O[2];
    SS:=0; O[3]:=0;
    for J:=1 to X do
     begin
       SS:=SS+K[J]*Y[J]; O[3]:=O[3]+K[J]*K[J];
     end;
    B[3]:=SS/O[3];
  end;{GB1410}
 procedure GB1480;
  begin
    SS:=0; O[4]:=0;
    for J:=1 to X do



                                                     79