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

Для реализации циклов с постусловием в языке Паскаль используется цикл Repeat-Until.

Синтаксис:

repeat оператор1; оператор2; ... операторNuntil выражение;

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

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

Пример 1

i:=0;
repeat
i:=i+5;
until i>=25;

Пример 2

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

Пример 3

Блок-схема цикла Repeat-Until приведена на рисунке 4.

 

Рисунок 4. Блок-схема цикла Repeat-Until