Практикум по программированию на языке Turbo Pascal. Часть 1. Портнягина В.В - 62 стр.

     Оператор цикла с постусловием состоит
из ключевого слова repeat, за которым следу-
ют операторы тела цикла, и замыкающего
ключевого слова until, после которого указы-
вается < Условие > окончания цикла.
                                                           Логическое
     Логическое < Условие > выполнения цикла               условие
должно быть False, и как только < Условие >
станет True (истинным), цикл прерывается.
     Блок-схема цикла repeat приведена на
рис. 22. Упрощенно общую структуру опера- Рис. 22. Цикл «До» с постусловием
тора repeat можно представить так:
     REPEAT
     Оператор;
     Оператор;
     ………….
     Оператор;
     UNTIL < Условие >;
     Оператор repeat не требует использования операторных скобок Begin –
End, когда в его теле необходимо записать более одного оператора. Кроме то-
го, оператор repeat является не столь универсальным, как оператор while, по-
скольку его логическое < Условие > располагается в конце тела цикла и опе-
раторы его тела будут всегда выполняться как минимум один раз.
Выражение, используемое в качестве логического < Условия > окончания
цикла, должно давать результат булевского типа.
     Общий принцип работы цикла с постусловием repeat такой же, как у цик-
ла с предусловием while. Но логическое < Условие > проверяется не перед вы-
полнением тела цикла, а после него, и управление циклом repeat прямо проти-
воположно управлению циклом while. To есть цикл repeat продолжается, пока
логическое < Условие > ложно (False), и заканчивается, когда логическое < Ус-
ловие > становится истинным (True). В задаче 3 рассмотрим, как выглядит про-
верка длины вводимой последовательности при использовании оператора repeat
(задача уже была рассмотрена нами при использовании оператора while).

    Задача 3
    При вводе осуществить проверку длины вводимой последовательности.
    Program Lab5_3;
    Var
       N: integer;
    BEGIN {1}
       Repeat
          WriteLn ('Bведите длину последовательности N = ');
          ReadLn (N);
       Until N > 0;
    WriteLn ('Длина последовательности N = ' , N);
    END. {1}
                                     62