Учебник Turbo Pascal. Введение - Оператор цикла repeat...until...

Оператор цикла repeat...until...

Оператор цикла с постусловием имеет вид

repeat  statement   until   expession;

Здесь вначале выполняется оператор statement, а затем вычисляется значение логического выражения expression. Процесс повторяется, пока выражение expression принимает значение «ложь». Как только это значение станет истинным, выполнение цикла прекращается. Оператор statement может быть любым, в том числе и составным оператором:

begin
    statement_l; 
    statement_2;
    ...
    statement_n;
end;

В цикле repeat-until... операторные скобки begin...end могут быть опущены. Таким образом, в общем случае оператор repeat...until имеет следующий вид:

repeat
    statement_l; 
    statement 2;
    statement_n; 
until expression;

Точка с запятой перед зарезервированным словом until необязательна. В приведенном ниже частном случае

repeat
    statement_l; 
    statement_2;
    ...
    statement_n; 
until False;

цикл выполняется бесконечно. Еще раз обращаю ваше внимание на то, что если в операторе while...do... проверка выполняется в начале цикла, то в цикле repeat...until... проверка выполняется в последнюю очередь, и Тело цикла в любом случае выполняется хотя бы один раз.

Вот пример цикла с постусловием:

repeat
    Write('Значение счетчика равно ', Count);
    WriteLn;
    Count := Count + 2;
until Count = 10;