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

writeln (' No2tr2= ', No2tr2:1:6);

writeln (l, 'при 15% рециркуляции газов через шлицы под горелки, г/м3', ' No2tr2= ', No2tr2:1:6);

writeln ('При вводе 5% рециркуляции газов в кольцевой канал горелки, г/м3');

No2tr3:=abs (No2tr(Co1, Tm3, jp3, f3));

writeln (' No2tr3= ', No2tr3:1:6);

writeln (l, 'При вводе 5% рециркуляции газов в кольцевой канал горелки, г/м3', ' No2tr3= ', No2tr3:1:6);

Writeln ('При вводе 15% рециркуляции газов в кольцевой канал горелки, г/м3 ');

No2tr4:=abs (No2tr(Co1, Tm4, jp4, f4));

writeln (' No2tr4= ', No2tr4:1:6);

Writeln (l, 'При вводе 15% рециркуляции газов в кольцевой канал горелки, г/м3', ' No2tr4= ', No2tr4:1:6);

writeln(l);

readkey;

clrscr;

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

writeln ('Содержания азота в топливе, Nr(%)');

write ('Nr='); readln(Nr);

GOTOXY (15,4);

textcolor(14);

writeln ('Топливныеибыстрыеоксидыазота, No2tl (г/м3):');

writeln (l, 'Топливные и быстрые оксиды азота, No2tl (г/м3):');

textcolor(12);

writeln ('при 5% рециркуляции газов через шлицы под горелки, г/м3');

No2tl1:=abs (No2tl(Nr, Tm1, r1));

writeln ('No2tl1= ', No2tl1:1:6);

writeln (l, 'при5% рециркуляциигазовчерезшлицыподгорелки, г/м3', 'No2tl1= ', No2tl1:1:6);

writeln ('при 15% рециркуляции газов через шлицы под горелки, г/м3');

No2tl2:=abs (No2tl(Nr, Tm2, r2));

writeln ('No2tl2= ', No2tl2:1:6);

writeln (l, 'при 15% рециркуляциигазовчерезшлицыподгорелки, г/м3', 'No2tl2= ', No2tl2:1:6);