Математическое моделирование с применением графических построений в ЕХСЕL. Черный А.А. - 62 стр.

      end;
    writeln('Конец работы');
    close(F0);
end.{Конец программы}
unit TPG3_2;
Interface
 type artp=array[1..50] of real;
 var
   J6,K5,S,J,I0,X,N0,K9,K4,F8,F9:integer;
   G1,T1,A1,C1,E1,D1,B1,J1,O1,A2,E2,B2,J2,O2,A3:real;
   H1,K1,L1,F1,M1,I1,P1,E3,B3,J3,O3,V1,U1,Q1,V2,U2,Q2:real;
   P2,F2,I2,H2,M2,N3,N4,N5,N6,N7,R3,R4,R0,R5,R6:real;
   S0,J5,S1,V3,U3,Q3,U9,F7,SO,F6:real;
   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;

                                                     62