Теория и практика математического моделирования в современном литейном производстве. Дурина Т.А. - 75 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

75
ifI0=35thengoto3;
ifI0=14then
begin
GB7000;
goto2;
end;
writeln('Конецработы');
close(F0);
end;
end.{Конецпрограммы}
unittpgl1_2;
Interface
typeartp=array[1..50]ofreal;
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;
grMode:Integer;
functionste(Q,A:real):real;procedureVVOD21;
procedureVVOD22;procedureVVOD23;procedureVVOD24;
procedureVVOD25;procedureGB780;procedureGB810;
procedureGB850;procedureGB940;procedureGB1110;
procedureGB2480(A,B,N:real;varV0:real);
procedureGB2490;procedureGB2500;procedureGB2510;
procedureGB2520;procedureGB2530;procedureGB2540;
procedureGB2550;procedureGB2570;procedureGB2600;
procedureGB2670;
Implementation
functionste(Q,A:real):real;
{Функциявозведениявстепень}
begin
ifA<0thenexit
else
begin
ifQ=0thenA:=1E‐20;
ifA=0
thenste:=1
elseste:=exp(A*ln(Q));
end;
end;{ste}
procedureVVOD21;
  if I0=35 then goto 3;
  if I0=14 then
    begin
      GB7000;
      goto 2;
    end;
  writeln('Конец работы');
  close(F0);
 end;
end.{Конец программы}

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;
   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;
                                                                     75

Страницы