repeat

Цикл repeat (цикл з післяумовою) частіше за все використовується коли невідома кількість ітерацій та цикл має працювати до тих пір поки задана умова не стане вірною. Оператор repeat має слідуючу синтаксичну структуру:

           repeat
             .
             .
             .
             Тіло циклу
             .
             .
             .
           until умова (i>20);
           

Наприклад потрібно підрахувати кількість брусків довжиною 1,5м. які отримаються із розпилювання колоди довжиною 20м, цикл підрахунку матиме наступний вигляд:

           i:=0; {кількість брусків}
            L:=0; {Загальна довжина відпиляний брусків}
           repeat
           begin
             L:=L+1.5;
             i:=i+1;
           until L>20;
           ShowMessage(’Кількість брусків ’,i);