Назначение

Оператор цикла с постусловием предназначен для организации многократного выполнения фрагмента программы при выполнении некоторого условия, указанного после выполнения <​тела цикла​>. Это условие проверяется после выполнения <​тела цикла​>, поэтому <​тело цикла​> всегда будет выполнено хотя-бы один раз.

Синтаксис

LOOP
  <​тело цикла​>
UNTIL <​выражение​>

Описание

<​выражение​> должно быть логического типа. Если его значение TRUE, выполняется <​тело цикла​> начиная с LOOP, после чего снова вычисляется <​выражение​> и принимается решение о продолжении (прекращении) цикла. Если значение <​выражения​> FALSE, управление передается на следующий после UNTIL оператор. Чтобы количество циклов было конечным, в <​теле цикла​> обязательно должно выполняться изменение переменных или условий, влияющих на <​выражение​>.

Пример

x:=1;
loop
  {тело цикла}
  x:=x+1;
until x​>20;