Обработка числовых последовательностей всегда основывается на использовании оператора цикла.

Обработка числовых последовательностей всегда основывается на использовании оператора цикла. Это может быть безусловный цикл

FOR I:=N1 TO N2 DO
<тело цикла>;
где I — переменная цикла, которая должна быть перечисляемого типа (целая, символьная и т. д.);
N1 — начальное значение переменной цикла;
N2 — конечное значение переменной цикла.

Безусловный цикл выполняется заданное число раз. Чтобы прервать выполнение досрочно, необходимо увеличить I до конечного значения (I := N2) либо использовать оператор BREAK.

В языке PASCAL предлагаются к использованию циклы, исполнение которых зависит от какого-либо условия. Таких циклов два:

С постусловием

С предусловием

REPEAT

<тело цикла>

UNTIL <условие>;

WHILE <условие> DO

<тело цикла>;

В цикле с постусловием сначала выполняется тело цикло, I только потом проверяется условие. Например, проверка на то, чтобы задать длину последовательности, осуществляется следующим образом:

REPEAT
WRITE(‘BBEДИTE ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ‘);
READLN (N);
UNTIL N>0;

Цикл выполняется до тех пор, пока пользователь не введет положительное число.

Для цикла с предусловием проверка проводится до начала очередной итерации:

BEGIN
WRLTE(‘BBEДИTE ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ‘);
READLN (N);
END;
Для последовательностей характерно, что в каждый момент времени нам доступен только один элемент последовательности. Поэтому все алгоритмы строятся с учетом однократного последовательного просмотра.

Упражнение 1. Вводится последовательность из N целых чисел. Найти сумму всех отрицательных чисел.

Упражнение 2. Вводится последовательность из N целых чисел. Найти, сколько в ней нулей.

Упражнение 3. Вводится последовательность из N целых чисел. Найти наибольшее число.
Упражнение 4. Вводится последовательность целых чисел, 0 — конец последовательности. Найти два наименьших числа
Добавить комментарий