Цикл с постусловием Repeat

начинаем утром рано
выполнять зарядку,
применяем циклы дружно,
повторяем информатику.

присяданья,отжиманья,
бег,прыжки,скакалка,
вроде выполнили все
вместе испытанья.

как проверить,все ли сделал
наш ленивый Вася?
мы используем REPEAT,
будут тогда знать все.

-Вася отжиманья сделал?
-сделал.
-Сделал Вася присяданья?
-Ну и это тоже сделал,
-отвечает Вася.
-Вася, ну а как же гири,
ты про них совсем забыл!
-Ой,и правда ведь,рябят-
от горя Вася наш завыл.
Он пошел назад в спортзал
делать упражненья.
если сделает он все
- будет удивленье.
Возвращается наш Вася,
теперь задания все сделал.
может он идти домой
или в магазин за хлебом.

Вот такой repeat полезный,
ставится после работы.
проверяет сделано ли
данное условие.
если верно всё - свободен,
можешь отдыхать.
ну а если ты не сделал -
repeat снова будет проверять.

Иногда при решении задач возникает необходимость выполнить тело цикла хотя бы один раз, а потом, проверив условие, определить, повторять ли тело цикла еще раз. Эту задачу выполнит другой вид цикла – цикл Repeat.

Repeat  — полная противоположность while. Repeat — это цикл, в котором условие стоит после тела . Причем оно выполняется тогда и только тогда, когда результат условия false (неверно); как только логическое выражение становится true (верно), выполнение цикла прекращается.

repeat {повторяй}
  {операторы операторы}
until <условие>; {до тех пор, пока условие не будет истинным}

  

   Для выполнения в цикле repeat нескольких операторов не следует помещать эти операторы в операторные скобки begin ... end. Зарезервированные слова repeat и until действуют как операторные скобки.

   Конструкция repeat ... until работает аналогично циклу while. Различие заключается в том, что цикл while проверяет условие до выполнения действий, в то время как repeat проверяет условие после выполнения действий. Это гарантирует хотя бы одно выполнение действий до завершения цикла.

Например,

a) repeat       read (Number);       Sum := Sum+Number;     until Number=-1

b) repeat       i := i+1;       writeln (Sqr(i));     until i>=10