Контрольная работа: Расчёт насадочного абсорбера

writeln;

write('Rashod gaza Vc: ');readln(V0); {m3/chas}

write('Davlenie p: ');readln(p); {MPa}

write('Yn: ');readln(Yn1); {abs.molnie}

write('Yk: ');readln(Yk1); {abs.molnie}

write('Xn: ');readln(Xn1); {abs.molnie}

write('Molek. massa abs-go componenta Ma: ');readln(ma);

ml:=18;

mg:=29;

write('Konstanta Genri E: ');readln(ae); {MPa}

write('Poroznost` nasadki e1: ');readln(e1);{m3/m3}

write('Udel`nay poverhnost` nasadki s1: ');readln(s1); {m2/m3}

Rol:=1000;

write('Vyzkost` vozduha Vig: ');readln(Vig);

write('Vyzkost` vodi Vil: ');readln(Vil);

write('Temperatura absorbcii T: ');readln(T); {^C}

write('Koefficient izbitka oroweniy Fi: ');readln(Fi);

clrscr;

De:=4*e1/s1;

Yn:=ma*yn1/(mg*(1-yn1)); {Otnos. massovie}

Yk:=ma*yk1/(mg*(1-yk1)); {%}

Xn:=ma*xn1/(ml*(1-xn1));

gn:=v0*1.293*(1-yn1)+v0*1.98*yn1;

g:=v0*1.293*(1-yn1);

ga:=g*(yn-yk); {kg/hr}

gk:=gn-ga;

m:=ae/p;

xkp:=ma*mg*yn/(ml*m*ma+m*mg*ml*yn-yn*mg*ml);

lm:=g*(yn-yk)/(xkp-xn);