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

clrscr;

gotoxy (3,1);

writeln ('Температурный интервал активной реакции образования оксидов азота, Tp(С):');

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

Tp1:=Tp(Tm1);

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

writeln (l, 'Температурный интервал активной реакции образования оксидов азота, Tp(С):');

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

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

Tp2:=Tp(Tm2);

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

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

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

Tp3:=Tp(Tm3);

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

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

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

Tp4:=Tp(Tm4);

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

writeln (l, 'При вводе 15% рециркуляции газов в кольцевой канал горелки, С', ' Tp4= ', Tp4:6:1);

writeln(l);

gotoxy (22,24);

textcolor(5);

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

readkey;

clrscr;

textbackground(0);

gotoxy (15,1);

textcolor(13);