Расчёт конверсии метана / Расчёт Р8 / JPKPOLIT

{ќв  Їа®Ја ¬¬  ЇаҐ¤­ §­ зҐ­  ¤«п а бзҐв  P8 ЁвҐа жЁ®­­л¬ ¬Ґв®¤®¬
ў а §¤Ґ«Ґ "€бб«Ґ¤®ў ­ЁҐ Ї®«Ёва®Ї­®Ј® Їа®жҐбб ". Љ ᮦ «Ґ­Ёо, ў ¬ б ¬Ё¬
ЇаЁ¤Ґвбп § ¤ ў вм dP - ¬­Ґ «Ґ­Ёў® Ўл«® ЇЁб вм Їа®Јг б  ўв®¬ вЁзҐбЄЁ¬ Ї®ЁбЄ®¬
ЁбЄ®¬®© ўҐ«ЁзЁ­л. Љ ЁбЄ®¬®© ўҐ«ЁзЁ­Ґ ўл Ё¬ҐҐвҐ и ­б ЇаЁ©вЁ Ј¤Ґ-в® в Є
§  ­ҐбЄ®«мЄ® ЁвҐа жЁ©. „«п ­ з «  ў®§м¬ЁвҐ dP=10^6Џ , в.Ґ. ўўҐбвЁ ўл ¤®«¦­л:
1E+06
‡ вҐ¬ ўл б ¬Ё ЇаЁ©¤ҐвҐ Є ⮬г, Є Є®Ґ зЁб«® ў ¬ Ї®¤е®¤Ёв - ®вЄ«®­Ґ­Ёп ўлў®¤пвбп
ў Їа®жҐ­в е.
ЌҐ § Ўг¤м⥠ўбҐ зЁб« , а ббзЁв ­­лҐ § а ­ҐҐ, Ї®¤бв ўЁвм ў а §¤Ґ« ®Ўкпў«Ґ­Ёп
Є®­бв ­в ў¬Ґбв® ¬®Ёе зЁбҐ«.
„«п ¬®Ёе гб«®ўЁ© (ў а-в 5) Ґб«Ё бзЁв вм ¤® 3-Ј® §­ Є , Ї®«гз Ґвбп
dP=0.888E+06 Џ  }

uses crt;


var key:char;


{ўбҐ а бзҐвл - ў ‘€!!!}

const {⥠зЁб« , зв® ®¤­Ё г ўбҐе, ­ Їа. Ї а ¬Ґвал ЇҐзЁ}
T8=573;
Lg=42;
f=1.73;
K0=4.48E-09;


const {⥠зЁб« , зв® ­Ґ ¬Ґ­повбп ў Їа®жҐбᥠЁвҐа жЁ©, ­® г Є ¦¤®Ј® ®­Ё бў®Ё}
P9=2.7E+06;
T9=1073;
R8=472.3;
Rm=548.9;
ro9=3.6;
w9=4.72;
m=29.446;
mum=28.2E-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('‚ўҐ¤ЁвҐ dP, Џ : ');
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('‚ १г«мв вҐ:');
WriteLn(left,' = ', psi89);
WriteLn('а §­Ёж  а ў­  ', abs(left-psi89));
procent:=100*abs((left-psi89)/psi89);
WriteLn('зв® б®бв ў«пҐв ', procent:5:3, '% ®в ¤ЁббЁЇ жЁЁ');
WriteLn('Џа®¤®«¦ вм (y/n)');
key:=Readkey;
until key='n';
end.