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

No2tr:=7030*exp (ln(Co)*0.5)*exp (-10860/Tm)*(jp/f);

end;

Function No2tl (Nr, Tm, r:real):real;

begin

No2tl:=(0.4–0.1*Nr)*Nr*sqr((Agor+r)/(1+r))*((2100-Tm)/125);

end;

begin

textbackground(2);

textcolor(3);

clrscr;

gotoxy (30,7); write ('Курсовая работа');

gotoxy (10,9); write ('Сравнить ожидаемый выход оксидов азота из газомазутного котла');

gotoxy (23,12); write ('Выполнил студент группы ЭТ-21');

gotoxy (30,14); write ('Женжера Антон');

gotoxy (21,20); write ('Нажмите лубую кнопку для продолжения…');

readkey;

zanovo:

clrscr;

textbackground(1);

textcolor(15);

clrscr;

assign (l, 'd:\infa');

rewrite(l);

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

writeln ('Теоритического объема газа, необходимого для сжигания топлива, Vgaz (м3/кг)');

write ('Vgaz='); readln(Vgaz);

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

writeln ('Теоритического объема воздуха, необходимого для сжиганиятоплива, Vv (м3/кг)');

write ('Vv='); readln(Vv);