Курсовая работа: Расчет и принцип работы распылительной сушилки

var q50,q100,q150,q200,q250,q300,q350,

q1,q2,q3,Q,s,x1,x2,x3,c,h,z,L0,L9,V9,G,

m1,m2,m3,m4,m,v1,v2,v3,v4,v,R1,R2:real;

begin

clrscr;

writeln('введите состав топливного газа в % по объему');

write('метан=');

readln(f1);

write('этан=');

readln(f2);

write('пропан=');

readln(f3);

Q:=360.33*q1+631.8*q2+913.8*q3;

s:=(q1*16.043+q2*30.07+q3*44.1);

x1:=q1*16.043*100/s;

x2:=q2*30.07*100/s;

x3:=q3*44.1*100/s;

c:=12*(x1/16.043+2*x2/30.07+3*x3/44.1);

h:=4*x1/16.043+6*x2/30.07+8*x3/44.1;

r1:=1/(x1/(100*0.72)+x2/(100*1.36)+x3/(100*2.02));

z:=c+h;

if abs(z-100)<=0.1 then

begin

L0:=0.0115*c+0.345*h;

L9:=L0*a;

V9:=L0/Rv;

G:=1+L9;

m1:=0.0367*c;

m2:=0.09*h;