Добавил:
Mendeleev
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовая работа / Расчет конверсии метана / Расчёт Р8 (Pascal) - 2000 / JPKPOLIT
.PAS {ќв Їа®Ја ¬¬ ЇаҐ¤ § зҐ ¤«п а бзҐв 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.
ў а §¤Ґ«Ґ "€бб«Ґ¤®ў ЁҐ Ї®«Ёва®Ї®Ј® Їа®жҐбб ". Љ ᮦ «ҐЁо, ў ¬ б ¬Ё¬
ЇаЁ¤Ґвбп § ¤ ў вм 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.
Соседние файлы в папке Расчёт Р8 (Pascal) - 2000