Проблемно-ориентированная информатика химико-технологических процессов. Кравцов А.В - 15 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

BEGIN
X:=-B/(2∗A);
writeln(’Данное уравнение имеет ОДИН вещественный корень’);
writeln(’ X = ’,X:10:6);
END;
IF D > 0 THEN
BEGIN
X1 := (-B+sqrt(D))/(2∗A);
X2 := (-B-sqrt(D))/(2
∗A);
writeln(’Данное уравнение имеет ДВА вещественных корня’);
writeln(’ X1 = ’,X1:10:6,’ X2 = ’,X2:10:6);
END;
END.
Пример 2.3.4 Составить программу вычисления теплового эффекта
химической реакции, если теплоемкость зависит от температуры.
(
)
()
ΔΔ ΔHH CT
TP
=+⋅−
298
298 n⋅
,
где n=7.3 моль - количество вещества,
ΔH
298
=63 200 Дж/моль - мольный эффект реакции при стандартных
условиях.
ΔC
Дж моль К Т К
Дж моль К Т К
Дж моль К Т К
P
=
−
⋅
<
−⋅≤<
⋅≥
⎧
⎨
⎪
⎩
⎪
13 7 600
4 9 600 800
5 3 800
./ , ,
./ ,
./ , .
,
CONST
n=7.3; H298=63200; T1=600;T2=800;
Cp1= -13.7; Cp2= -4.9; Cp3=5.3;
VAR T, Cp, H:real;
BEGIN
write(’Введите температуру, К : T = ’); readln(T);
IF T < T1 THEN Cp:= Cp1 ELSE
IF T < T2 THEN Cp:= Cp2 ELSE Cp:= Cp3;
H:=(H298+Cp
∗(T-298))∗n;
writeln(’Тепловой эффект : H=’, H:6:3);
END.
Пример 2.3.5 Вводятся значения длин трех отрезков. Составить
программу определения возможности образования этими отрезками
треугольника.
15

Страницы