Назначение

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

Синтаксис

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

Описание

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

Пример

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