Цикл с постусловием «REPEAT…UNTIL»
Циклы применяются, когда нужно выполнить одни и те же команды несколько раз.
Рассмотрим общий вид цикла с постусловием:
Repeat
[тело цикла];
Until <логическое выражение>;
Плюсы у данного цикла те же самые, что и у цикла с предусловием.
Стоит правильно понимать суть этого цикла: «Повторять команды, приведенные в теле цикла до тех пор, пока данное условие не будет выполнено (логическое выражение не будет истинным)».
Например:
Снова возьмем следующую задачу: вывести на экран все числа от 1 и до 10 включительно, которую уже мы делали, но пойдем другим путем:
program num4;
var x:integer;
begin
x:=1;
repeat
write (x:2);
x:=x+1
until x>10
end.