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

m4:=0.768*a*L0;

m:=m1+m2+m3+m4;

end

else

begin

writeln('ошибка');

halt;

end;

if abs(m-g)<=0.01 then

begin

v1:=m1*22.4/44.1;

v2:=m2*22.4/18.015;

v3:=m3*22.4/31.999;

v4:=m4*22.4/28.013;

v:=v1+v2+v3+v4;

r2:=m/v;

end

else

begin

writeln('ошибка');

halt;

end;

writeln('низшая теплотворная способность топлива Q=',q:10:3,'кДж/куб.м');

writeln('содержание углерода в топливе=',c:6:3,'в % по массе');

writeln('содержание водорода в топливе=', h:6:3,'в % по массе');

writeln('плотность топливного газа=',r1:6:3,'кг/куб.м');

writeln('теоретический расход воздуха=',L0:6:3,'кг/кг');

writeln('фактический расход воздуха=',L9:6:3,'кг/кг');

writeln('количество продуктов сгорания=',G:6:3,'кг/кг');