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

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

writeln ('Cечения топочной камеры, Sc(м)');

write ('Sc='); readln(Sc);

textcolor(14);

writeln ('Расчетное время реакции образования оксидов азота в топке, jp(сек)');

writeln (l, 'Расчетное время реакции образования оксидов азота в топке, jp(сек)');

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

jp1:=abs (jp(Tp1, j1));

writeln ('jp1= ', jp1:1:4);

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

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

jp2:=abs (jp(Tp2, j2));

writeln ('jp2=', jp2:1:4);

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

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

jp3:=abs (jp(Tp3, j3));

writeln ('jp3=', jp3:1:4);

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

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

jp4:=abs (jp(Tp4, j4));

writeln ('jp4=', jp4:1:4);

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

writeln(l);

readkey;

clrscr;

textbackground(0);

gotoxy (15,1);

textcolor(14);

writeln ('Расчет теоретического времени достижения равновесия, сек');