Итерационные циклы с постусловием
Для реализации циклов с постусловием в языке Паскаль используется цикл 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