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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

FOR i:=1 TO N DO
BEGIN
FOR
j:=1 TO M DO read(F,a[i,j]);
readln(F)
END;
Close (F);
Пример 2.8.2. Рассчитать массовые доли компонентов газовой смеси:
x
xM
xM
i
ii
ii
i
n
=
⋅
⋅
=
∑
1
,
если известны мольные доли x(n) и молярные массы m(n) компонентов.
VAR x, xm, m:ARRAY[1..20] OF real;
S:real;
i:integer;
C:text;
BEGIN
write(’n=’); readln(n);
{Ввод массивов x(n) и m(n) из файла.}
Assign(C,’data.txt’);
Reset(C);
FOR i:=1 TO n DO readln(C,x[i],m[i]);
Close(C);
{Расчет суммы.}
S:=0;
FOR i:=1 TO n DO
S:=S+x[i]
∗m[i];
{Расчет массива xm(n) с одновременным выводом результатов.}
FOR i:=1 TO n DO
BEGIN
xm[i]:=x[i]
∗m[i]/S;
writeln(’x[’,i,’]=’,x[i]:6:3,’ xm[’,i,’]=’,xm[i]:6:3)
END;
END.
36

Страницы