Цикл типа Repeat называется циклом последующего условия, т.е. операторы входящие в тело цикла выполняются, по крайней мере, один раз.
Общий вид оператора:
Repeat
<оператор>
until <условие>
Между Repeat и until можно помещать любое количество операторов, в том числе и не одного. Слова Repeat и until сами являются операторами-скобками, поэтому операторы, расположенные между ними не обязательно заключать в скобки Begin-end;
Цикл продолжается до тех пор, пока условия заданные после until не станет истинным, как только оно станет истинным, цикл прекращается.
Применение цикла последующего условия целесообразно в тех условиях, когда операторы, формирующие значение условного цикла, составляют достаточно большую последовательность, и их нецелесообразно дублировать вне цикла.
Цикл Repeat until Keypressed-удерживает картинку на экране.
Пример, вывод на экран чисел от 1 до 100
k:=0;
repeat
k:=k+1
writeln (k);
until k>100;
PROGRAM Demo_REPEAT; { заголовок программы}
Var I, Sum: integer; {объявление переменных}
BEGIN {начало раздела операторов}
I: =0; Sum: 0 ;{ обнуление I, Sum}
REPEAT {начало оператора REPEAT}
WRITELN (′I=′, I) ;{ вывод текущее значение I}
Sum: =Sum+I; {наращивание суммы}
I: =I+2 {увеличение I (0, 2, 4, 6, 8, 10)}
UNTIL (I>10) ;{ конец оператора REPEAT}
WRITELN (′Сумма четырех чисел′, Sum) {вывод результата}
END. {конец программы}
«Понятие подпрограмм. Процедуры и функции».
