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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

dT:=50;
T:=T1;
writeln(’Т,К Cp, Дж/мольK’);
1: Cp:=a+b∗T+c∗sqr(T)+d/sqr(T)+e∗exp(3∗ln(T));
writeln(T:3:0,’ ’,Cp :9:4);
T:=T+dT;
IF T<T2 THEN GOTO 1;
writeln(’Расчет окончен ! ’);
END.
Пример 2.5.4 Составить программу для расчета выражения:
Fx
i
i
k
k
=+
=
=
∑
∏
1
11
3
1
20
x
.
VAR F, S, P, x:real; i, k:integer;
BEGIN
write(’x=’); readln(x);
S:=0;
FOR i:=1 TO 11 DO
S:=S+exp(i∗ln(x));
P:=1;
FOR k:=1 TO 20 DO
P:=P∗exp(1/k∗ln(x));
F:=exp(1/3∗ln(S))+P;
writeln(’S=’,S:10,’ P=’,P:10,’ F=’,F:10)
END.
Пример 2.5.5 Составить программу вычисления бесконечного ряда:
ex
xx
x
=++ + +1
23
23
!!
...
.
Условие окончания расчета ряда:
()
x
n
n+
+
<
1
1!
ε
, (ε = 0.0001).
CONST e=0.0001;
VAR i:integer; X, S, Y:real;
BEGIN
write(’Введите значение X =’); readln(X);
i:=0; {Номер слагаемого.}
y:=1; {Значение i-го слагаемого.}
S:=0; {Сумма ряда.}
REPEAT
S:=S+y; {Расчет суммы.}
23

Страницы