Until условие;
Схема его работы представлена на рис. 2.6.
В теле цикла записывается один или несколько операторов, которые будут выполняться многократно. Они располагаются между служебными словами Repeat и Until, поэтому обрамлять их словами Begin и End не нужно. После слова Until записывается условие выхода из цикла (по значению параметра).
При этом необходимо обязательно изменять параметр внутри цикла, иначе цикл будет выполняться бесконечно (произойдет "зацикливание"). В соответствии со схемой цикл выполняется по крайней мере 1 раз.
Пример. Изобразить степени двойки, не превышающие 10000.
Алгоритм
1. Положить число = 2.
2. Повторять:
2.1. Изобразить число.
2.2. Число: = число * 2.
Пока число НЕ превысит 10000.
3. Закончить
Программа для этого алгоритма будет иметь вид
Program Two;
Var
Num: Integer;
Begin
Num:=2;
Repeat
Writeln (Num);
Num:=Num*2;
Until Num>1000;
End.
