INPUT N

DIM X (N)

FOR 1=1 TO N

INPUT X(I)

NEXT I

MAX=X(1)

FOR I=2 TO N

IF X(I)>MAX THEN MAX=X(I)

NEXT 1

IF MAX>25THEN

PRINT "ПРЕВЫШАЕТ"

ELSE

PRINT "НЕ ПРЕВЫШАЕТ"

END

2.9 Алгоритмы и программы с использов
анием итерационных циклов

Итерационными называют циклы, у которых количество вычислений в цикле предварительно неизвестно, а вычислительный процесс продолжается до выполнения определённого условия.

Пример 2.7 В ёмкости находится V м³ жидкости. После работы в течение 1 часа откачивающего насоса производительностью Р1 м³ /час дополнительно подключился подающий насос производительностью Р2 м² / час (причём Р1 > Р2). Определить, через сколько полных часов от начала работы 1-го насоса ёмкость опустеет, если кроме того в конце каждого часа порционно расходовалось Р % от содержимого ёмкости.

Математическая формулировка задачи:

V = V− Р1 − содержание ёмкости после 1-го часа работы откачивающего насоса.

− содержимое ёмкости в результате ежечасного порционного расхода. V = V− Р1 + Р2 − содержимое ёмкости после каждого часа работы насосов. Тогда обозначим время через T, схема алгоритма решения задачи будет следующей (рисунок 12):

нет

да

Рисунок 12 Схема алгоритма решения к примеру 2.7

Проверка на отсутствие жидкости в ёмкости осуществляется сравнением V ≤ 0, так как при сравнении V равно нулю может произойти зацикливание вычислительного процесса.

Для программирования итерационных вычислений использование операторов цикла FOR … NEXT невозможно. В данном случае используются операторы присваивания и условного перехода IF.

PRINT ‘’ Введи V, P1, P2, P’’