Курсовая работа: Сравнение ожидаемого выхода оксидов азота из газомазутного котла Пп 1000 25 - 545ГМ

writeln ('Избытка воздуха на выходе из топки, Aiv');

write ('Aiv='); readln(Aiv);

writeln ('Введите значение:');

writeln ('Присосов в топке, Ap');

write ('Ap='); readln(Ap);

if Ap>Aiv then exit;

Qgv:=(Aiv-Ap)*4502;

writeln ('Введите значение:');

writeln ('Теплоты сгорания мазута, Qm (МДж/кг)');

write ('Qm='); readln(Qm);

writeln ('Тепловыделение в зоне горения, Qt (кДж/кг)');

Qt:=Qm*(exp (ln(10)*3))+Qgv;

writeln ('Qt=', Qt:6:2);

writeln (l, 'Тепловыделение в зоне горения, Qt (кДж/кг)', 'Qt=', Qt:6:2);

writeln ('Коэффициент избытка воздуха в зоне горения, Agor');

Agor:=Aiv-0.5*Ap;

writeln ('Agor=', Agor:2:3);

writeln (l, 'Коэффициент избытка воздуха в зоне горения, Agor', 'Agor=', Agor:2:3);

writeln(l);

textcolor(5);

gotoxy (21,24);

writeln ('Нажмите любую кнопку для продолжения…');

readkey;

clrscr;

textbackground(0);

textcolor(12);

clrscr;

gotoxy (8,1);

writeln ('Расчет теплоемкости воздуха при высоких температурах (более 1600С)');