Лабораторные работы / Программы (Pascal) - 2003 / Den

яю{-B0 ?@>3@0<<0 ?@54=07=0G5=0 4;O @0AG5B0 P8 8B5@0F8>==K< <5B>4><

2 @0745;5 "AA;54>20=85 ?>;8B@>?=>3> ?@>F5AA0".  A>60;5=8N, 20< A0<8<

?@845BAO 704020BL dP - <=5 ;5=82> 1K;> ?8A0BL ?@>3C A 02B><0B8G5A:8< ?>8A:><

8A:><>9 25;8G8=K.  8A:><>9 25;8G8=5 2K 8<55B5 H0=A ?@89B8 345-B> B0:

70 =5A:>;L:> 8B5@0F89. ;O =0G0;0 2>7L<8B5 dP=10^60, B.5. 225AB8 2K 4>;6=K:

1E+06

0B5< 2K A0<8 ?@8945B5 : B><C, :0:>5 G8A;> 20< ?>4E>48B - >B:;>=5=8O 2K2>4OBAO

2 ?@>F5=B0E.

5 701C4LB5 2A5 G8A;0, @0AAG8B0==K5 70@0=55, ?>4AB028BL 2 @0745; >1JO2;5=8O

:>=AB0=B 2<5AB> <>8E G8A5;.

;O <>8E CA;>289 (20@-B 5) 5A;8 AG8B0BL 4> 3-3> 7=0:0, ?>;CG05BAO

dP=0.888E+06 0 }



uses crt;





var key:char;





{2A5 @0AG5BK - 2 !!!!}



const {B5 G8A;0, GB> >4=8 C 2A5E, =0?@. ?0@0<5B@K ?5G8}

T8=573;

Lg=42;

f=1.73;

K0=4.48E-09;





const {B5 G8A;0, GB> =5 <5=ONBAO 2 ?@>F5AA5 8B5@0F89, => C :064>3> >=8 A2>8}

P9=2.9E+06;

T9=1123;

R8=475.1;

Rm=571.2;

ro9=3.87;

w9=4.66;

m=31.22;

mum=26.4E-06;

{m=mean}



var n,w8,psi89,dP,P8,ro8,ro89m:real;

dPs,wm,left,procent:real;



begin

repeat

TextBackGround(Blue);

TextColor(White);

ClrScr;

Write('2548B5 dP, 0: ');

ReadLn(dP);

P8:=P9+dP;

WriteLn('P8=',P8);

ro8:=P8/(R8*T8);

WriteLn('ro8=',ro8);

n:=ln(P8/P9)/ln(ro8/ro9);

WriteLn('n=',n);

w8:=m/(ro8*f);

WriteLn('w8=',w8);

wm:=(w8+w9)/2;

WriteLn('wm=',wm);

dPs:=wm*mum*Lg/K0;

WriteLn('dP''=',dPs);

ro89m:=(ro8+ro9)/2;

WriteLn('ro89m=',ro89m);

psi89:=dPs/ro89m;

WriteLn('psi89=',psi89);

left:=(n/(n-1))*Rm*(T8-T9)-((sqr(w9)-sqr(w8))/2);

WriteLn(' @57C;LB0B5:');

WriteLn(left,' = ', psi89);

WriteLn('@07=8F0 @02=0 ', abs(left-psi89));

procent:=100*abs((left-psi89)/psi89);

WriteLn('GB> A>AB02;O5B ', procent:5:3, '% >B 48AA8?0F88');

WriteLn('@>4>;60BL (y/n)');

key:=Readkey;

until key='n';

end.