CASE PARAMETR OF

Р1: <оператор 1>;;

Р1: <оператор 2>;;

…………

Р1: <оператор N>;;

ELSE <оператор N+1>;

END;

Если при выборе альтернативы необходимо выполнение не­скольких операторов, то нужно заключить их в функциональные скобки, т. е. использовать составной оператор.

При использовании оператора CASE можно указывать диапа­зон допустимых значений. Например, чтобы определить, введена ли как символьная переменная цифра, можно написать:

CASE I OF

'0'..'9': WRITELN('ЦИФPA');

ELSE WRITELN('HE ЦИФРА')

END;

Конструкция ELSE необязательна и может быть опущена.

Оператор цикла FOR... DO. Оператор безусловного цикла имеет следующую структуру

FOR I:= N1 ТО N2 DO

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

где I - переменная цикла, которая должна быть перечисляемого типа (целая, символьная и т. д.); N1 - начальное значение пере­менной цикла; N2 - конечное значение переменной цикла.

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

При программировании может быть использован другой ус­ловный оператор цикла, в котором происходит уменьшение зна­чения переменной: FOR I:= N2 DOWNTO N1 DO

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

Оператор цикла REPEAT... UNTIL. Этот оператор называется циклом с постусловием, т. к. проверка условия осуществляется после каждого выполнения тела цикла:

REPEAT

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

UNTIL <условие>;;

Цикл выполняется до тех пор, пока условие не станет истин­ным.

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

WRITE('ВВЕДИТЕ ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N =');