Приложения
232
П2.1. Суммирование всех чисел последовательности.
сумма := 0
нц для i от 1 до n
|Ввод очередного числа
а
...
сумма := сумма + а
кц
|Вывод результата или использование его в расчетах
...
Пример. Известна масса каждого предмета, загружаемого в автомобиль. Оп-
ределить общую массу груза.
Решение:
вывод нс, "Задайте количество предметов "
ввод n
сумма := 0
нц для i от 1 до n
вывод нс, "Введите массу ", i, "-го предмета"
ввод а
сумма := сумма + а
кц
вывод нс, "Общая масса всех предметов равна", сумма
Примечание
В программах на языках программирования Бейсик, Паскаль и ряде других оператор
сумма := 0
не является обязательным. Вместе с тем, "правилом хорошего тона"
является начальное присваивание величине
сумма
нулевого значения (а в отдель-
ных задачах это является обязательным).
П2.2. Нахождение произведения всех чисел последовательности.
Здесь
начальное присваивание
произведение := 1
является обязательным:
произведение := 1
нц для i от 1 до n
|Ввод очередного числа
а
...
произведение := произведение * а
кц
...
Следует иметь в виду, что значение произведения не должно выходить за
пределы, допускаемые для использованных типов данных.
Приложение 2. Типовые задачи обработки элементов…
233
П2.3. Суммирование тех чисел последовательности, которые удовлетворяют неко-
торому условию.
сумма := 0
нц для i от 1 до n
|Ввод очередного числа
а
...
|Если заданное условие соблюдается
если <условие>
то
|Учитываем число
а в
сумме
сумма := сумма + а
все
кц
|Вывод результата или использование его в расчетах
...
Здесь
<условие>
— заданное условие для суммирования чисел. Это условие
может
зависеть от значения числа
а
или от
его порядкового номера
i
.
П2.4. Подсчет количества тех чисел последовательности, которые удовлетворяют
некоторому условию.
количество := 0
нц для i от 1 до n
|Ввод очередного числа
а
...
|Если заданное условие соблюдается
если <условие>
то
|Учитываем число
а в искомом количестве
количество := количество + 1
все
кц
|Вывод результата или использование его в расчетах
...
Достарыңызбен бөлісу: