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

writeln ('в зоне горения факела, cv (кДж/(м3*К)');

t:=1950*(1+0.36*Qt*0.00001)/Agor;

k:=(t-1200)/1000;

cg:=1.58+0.122*k;

cv:=1.46+0.092*k;

writeln ('cv=', cv:4:3);

writeln (l, 'Расчет теплоемкости воздуха при высоких температурах (более 1600С) в зоне горения факела, cv (кДж/(м3*К)');

write (l, 'cv=', cv:4:3);

writeln(l);

gotoxy (21,24);

textcolor(5);

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

readkey;

clrscr;

textbackground(0);

textcolor(11);

clrscr;

gotoxy (8,1);

writeln ('Расчетная адиабатная температура в зоне горения, градус Цельсия');

Ta:=(Qt/(Vgaz*cg+1.016*(Agor-1)*Vv*cv))+273;

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

writeln (l, 'Расчетная адиабатная температура в зоне горения, градус Цельсия', 'Ta=', Ta:6:2);

writeln(l);

gotoxy (21,24);

textcolor(5);

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

readkey;

clrscr;

textbackground(1);