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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

117
Количество элементов можно также вычислить, используя
стандартную функцию
inc(k):
for i:=1 to 10 do
if H[i]<0 then inc(k);
writeln (‘k=’,k:3);
Пример алгоритма использования функции odd(x)
Вычислить сумму и количество элементов массива С
1
, С
2
, . . . ,
С
15,
стоящих на нечетных местах и произведение положительных
элементов, расположенных на четных местах.
. . . . . .
S:=0; P:=1;
for i:=1 to 15 do
begin
if odd(i) then begin inc(k); S:=S+C[i] end;
if (С[i]>0)and not(odd(i))then P:=P*C[i];
end;
writeln(‘k=’,k:3,’ S=’,S:7:2,’ P=’,P:7:2);
. . . . . .
Преобразование массивов
Пример
. Дан массив энтальпий экзо– и эндотермических реакций
образования химических соединений: Н
1
, Н
2
, ..., Н
20
. Сформировать
массив (Нр
1
, Нр
2
, ..., Нр
к
), состоящий из положительных значений
энтальпий и массив, состоящий из отрицательных значений энтальпий
(Но
1
, Но
2
, ..., Но
n
). Обозначим: k, n – количество положительных и
отрицательных элементов в массивах Нр и Но соответственно.

Страницы