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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

Пример 2.8.3 Найти среднюю молярную массу фракции нефти по
формуле
m
xm
x
ii
TTT
i
TTT
nik
nik
=
⋅
<<
<<
∑
∑
,
(т. е. найти среднюю молярную массу тех компонентов нефти, темпера-
тура кипения которых попадает в температурный интервал выкипания
фракции нефти [Tn,Tk]). Данная задача сводится к нахождению сумм «с
условием».
VAR x, m, T:ARRAY[1..100] OF real;
Tn, Tk, S, Sm, Ms:real; F:text; i, N:integer;
BEGIN
{Ввод с клавиатуры значений Tn и Tk.}
write(’Температура начала кипения фракции. Tn=’);
readln(Tn);
write(’Температура окончания кипения фракции.Tk=’);
readln(Tk);
{Ввод из файла значений массивов x,m,T. Количество элементов в мас-
сиве заранее неизвестно.}
Assign(F, ’Fuel.dat’);
Reset(F); N:=0;
WHILE not(seekeof(F)) DO
BEGIN
N:=N+1;
readln(F,x[N],m[N],T[N]);
END;
Close(F);
{Расчет средней молярной массы для веществ с температурами кипения
Tn<Ti<Tk.}
S:=0; Sm:=0;
FOR i:=1 TO N DO
IF (Tn<T[i]) AND (T[i]<Tk) THEN
BEGIN
S:=S+x[i]; Sm:=Sm+x[i]
∗m[i];
END;
Ms:=Sm/S;
{Вывод результата.}
writeln(’Средняя молярная масса. Ms=’,Ms:6:2,’ г/моль’)
END.
37

Страницы