Условный оператор if

Операторы ветвления и цикла

Операторы завершения цикла

Итерационные циклы с постусловием

Синтаксис:

repeat оператор; оператор;... оператор until выражение

Операторы между словами repeat и until повторяются, пока логическое выражение является ложным (False). Как только логическое выражение становится истинным (True), происходит выход из цикла.

Так как выражение оценивается после выполнения операторов, то в любом случае операторы выполнятся хотя бы один раз.

Пример.

repeat WriteLn('Введите положительное число'); ReadLn(x);until x>0;

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

В версии Турбо Паскаль 7.0 определены стандартные процедуры:

BreakContinue

Процедура Break выполняет безусловный выход из цикла. Процедура Continue обеспечивает переход к началу новой итерации цикла.

Заметим, что хотя и существует возможность выхода из цикла с помощью оператора безусловного перехода goto, делать этого не желательно. Во всех случаях можно воспользоваться специально предназначенными для этого процедурами Break и Continue.

Условный оператор кодирует базовую структуру Развилка и позволяет проверить некоторое условие. В зависимости от результата проверки выполняется одно действие или другое. Условный оператор применяется в алгоритмах с ветвлением.
Структура оператора If может быть представлена следующим образом:

if < условие > then < оператор1> else < оператор2>,

где < условие > - любое булевское выражение; < оператор1 >, < оператор2 > - простой или составной оператор.
Часть оператора: else < оператор2 > может быть опущена. Тогда If выполняет оператор, записанный после Then, или пропускает его.
Операторы, указанные после ключевых слов Then и Else, сами могут быть условными операторами. Такой случай называют вложенностью, например:

if A > B then X:= A else if B < C then X:= B else X:= C;

В Турбо-Паскале принято, что каждый Else относится к ближайшему If. Рассмотрим пример:

if N > 0 then if(M Div N) > N then M:= M - N else M:= M + N;

Оператор присваивания M:= M + N будет выполняться только в том случае, если N > 0 и (M Div N) <= N. Ключевое слово Else является частью второго If, т.е. для N <= 0, никаких действий не производится. Если мы хотим, чтобы оператор M:= M + N выполнялся для N <= 0, т.е. чтобы Else относился к первому If, необходимо использовать составной оператор:

if N > 0 then begin {составной оператор} if (M Div N) > N then M:= M - N end else M:= M + N;

Дата добавления: 2014-01-06