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

textcolor(15);

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

f1:=f(Tm1);

writeln ('f1= ', f1:5:5);

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

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

f2:=f(Tm2);

writeln ('f2= ', f2:5:5);

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

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

f3:=f(Tm3);

writeln ('f3= ', f3:5:5);

writeln (l, 'при вводе 5% рециркуляции газов в горелку, сек', 'f3= ', f3:5:5);

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

f4:=f(Tm4);

writeln ('f4= ', f4:5:5);

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

writeln(l);

gotoxy (22,24);

textcolor(5);

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

readkey;

clrscr;

textcolor(3);

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

writeln ('Плотности кислорода при атмосферном давлении, po2 (кг/м3)');

write ('po2='); readln(po2);

writeln ('Коэффициента избытка воздуха в газах рециркуляции, Arz');

write ('Arz='); readln(Arz);