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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

BEGIN
H:=1;
d:=0.005;
p:=1.35;
m:=2.45E-6;
writeln(’ wn wk hw’);
readln(wn,wk,hw);
writeln(’ w Re L dP’);
w:=wn;
REPEAT
Re:=w∗d∗p/m;
IF Re<40 THEN L:=140/Re ELSE L:=16/exp(0.2∗ln(Re));
dP:=L∗H/d∗sqr(w)∗p/2;
writeln(w:5:2,’ ’,Re:10,’ ’,L:10,’ ’,dP:10);
w:=w+wh
UNTIL w>wk
END.
Пример 2.5.3 Составить программу для расчета удельной теплоем-
кости метана по эмпирической зависимости:
ΔС abTcT
d
T
eT
P
=+⋅+⋅ + +⋅
2
2
3
,
где a, b, c, d, e - эмпирические коэффициенты.
a=4.171;
b=14.45×10
-3
;
c=0.267×10
-6
;
d=0.0;
e=-1.722×10
-9
.
Произвести расчеты для интервала температур от 0 до 500 К, с ша-
гом 50 К.
LABLE 1;
CONST a=4.171;
b=14.45E-03;
c=0.267E-06;
d=0.0;
e=-1.722E-9;
VAR T, T1, T2, dT, Cp:real;
BEGIN
T1:=0;
T2:=500;
22

Страницы