Обработка числовых последовательностейОбработка числовых последовательностей всегда основывается на использовании оператора цикла. Это может быть безусловный цикл FOR I:= N1 ТО N2 DO <тело цикла>;; где I - переменная цикла, которая должна быть перечисляемого типа (целая, символьная и т. д.); N1 - начальное значение переменной цикла; N2 - конечное значение переменной цикла. Безусловный цикл выполняется заданное число раз. Чтобы прервать выполнение досрочно, необходимо увеличить I до конечного значения (I:= N2) либо использовать оператор BREAK. В языке PASCAL предлагаются к использованию циклы, исполнение которых зависит от какого-либо условия. Таких циклов два: С постусловием С предусловием REPEAT WHILE <условие> DO <тело цикла>; <тело цикла>; UNTIL <условие>;; В цикле с постусловием сначала выполняется тело цикло, а только потом проверяется условие. Например, проверка на то, чтобы задать длину последовательности, осуществляется следующим образом: REPEAT WRITE('ВВЕДИТЕ ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = '); READLN (N); UNTIL N >0; Цикл выполняется до тех пор, пока пользователь не введет положительное число. Для цикла с предусловием проверка проводится до начала очередной итерации: READLN(N); WHILE N<= 0 DO BEGIN WRITE('BBEДИTE ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ');
|
