Информатика. Часть 1. Мойзес О.Е - 116 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

116
Пример. Вычислить средний тепловой эффект (SH)
экзотермических реакций (Н1, Н2, ..., Н10) химико–технологического
процесса.
Для того, чтобы найти средний тепловой эффект, необходимо
найти суммарный тепловой эффект (SumH) и количество реакций (n) с
отрицательными значениями
∆Нi .
Конец
Вывод SH,
k
SumH=0
Начало
Ввод H
i
i =1,10
SumH=SumH+H
i
k=k+1
H
i
<0да
нет
k=0
SH=SumH/k
Program Tepl;
var H:array[1..10]of
real;
SumH,SH:real;
i,k:integer;
Begin
for i:=1 to 10 do
readln(H[i]);
SumH:=0; k:=0;
for i:=1 to 10 do
if H[i]<0 then
begin
Sum:=SumH+H[i];
k:=k+1;
end;
SH:=SumH/k;
writeln(’SH=’,SH:10;
’ k=’,k:3);
End.

Страницы