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

gotoxy (1,6);

writeln ('Концентрация остаточного(избыточного) кислорода в зоне горения реакции, Co2 (кг/м3)');

writeln;

writeln (l, 'Концентрация остаточного(избыточного) кислорода в зоне горения реакции, Co2 (кг/м3)');

textcolor(3);

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

Co1:=abs (Co(po2, Arz, r1));

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

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

writeln ('при вводе 15% рециркуляции газов в горелку');

Co2:=abs (Co(po2, Arz, r2));

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

writeln (l, 'привводе 15% рециркуляциигазоввгорелку', 'Co2=', Co2:1:6);

writeln(l);

gotoxy (21,24);

textcolor(5);

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

readkey;

clrscr;

textcolor(11);

gotoxy (10,1);

writeln ('Концентрациятермическихоксидовазота, No2tr (г/м3):');

writeln (l, 'Концентрация термических оксидов азота, No2tr (г/м3):');

textcolor(2);

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

No2tr1:=No2tr (Co1, Tm1, jp1, f1);

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

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

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