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

unit tpgl1_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,Z2,Z3,Z4,Z5:real;
    J9,L3,SS,L4,H4,H3,F3,F4,C2,D2,T2,V4,V5,M3,M4:real;
    A4,B4,A5,B5,J4,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;
    grDriver,grMode: Integer;
  function ste(Q,A:real):real; procedure VVOD21;
  procedure VVOD22; procedure VVOD23; procedure VVOD24;
  procedure VVOD25; procedure GB780; procedure GB810;
  procedure GB850; procedure GB940; procedure GB1110;
  procedure GB2480(A,B,N:real; var V0:real);
  procedure GB2490; procedure GB2500; procedure GB2510;
  procedure GB2520; procedure GB2530; procedure GB2540;
  procedure GB2550; procedure GB2570; procedure GB2600;
  procedure GB2670;
Implementation
function ste(Q,A:real):real;
   {Функция возведения в степень}
  begin
    if A<0 then exit
      else
        begin
          if Q=0 then A:=1E-20;
          if A=0
            then ste:=1
            else ste:=exp(A*ln(Q));
        end;
  end;{ste}
procedure VVOD21;
  begin
    writeln('Ввод A1 B1 J1');
    readln(A1,B1,J1);
    writeln(F0,'A1=',A1,' B1=',B1);
    writeln(F0,'J1=',J1);
  end;
procedure VVOD22;
  begin
    writeln('Ввод A2 B2 J2');
    readln(A2,B2,J2);
    writeln(F0,'A2=',A2,' B2=',B2);
    writeln(F0,'J2=',J2);
  end;
procedure VVOD23;
  begin
    writeln('Ввод A3 B3 J3');
    readln(A3,B3,J3);
    writeln(F0,'A3=',A3,' B3=',B3);
    writeln(F0,'J3=',J3);
  end;
procedure VVOD24;
  begin
    writeln('Ввод A4 B4 J4');
    readln(A4,B4,J4);
    writeln(F0,'A3=',A3,' B3=',B3);
    writeln(F0,'J3=',J3);

                                      24