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

writeln ('Теплового напряжения топочного обьема, q (МВт/м3)');

write ('q='); readln(q);

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

writeln ('Удельного приведенного объема газов, vg (м3/МДж)');

write ('vg='); readln(vg);

textcolor(14);

gotoxy (14,10);

writeln ('Время пребывания газов в топочной камере, j(сек)');

writeln (l, 'Время пребывания газов в топочной камере, j(сек)');

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

j1:=j (Tg1, r1);

writeln ('j1= ', j1:1:5);

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

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

j2:=j (Tg2, r2);

writeln ('j2=', j2:1:5);

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

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

j3:=j (Tg3, r1);

writeln ('j3=', j3:1:5);

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

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

J4:=j (Tg4, r2);

writeln ('j4=', j4:1:5);

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

writeln(l);

textcolor(5);

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

writeln ('Теплового напряжения сечения, Tt (МВт/м) 2');