Формат опису:
repeat
<серія>
until < умова >;
Умова — вираз булівського типу. Про умови ми вже говорили в темі «Команда розгалуження», і всі особливості їх застосування та оформлення в цій команді нічим не відрізняються від попереднього випадку. У цьому циклі спочатку виконується серія (тіло циклу), а потім перевіряється умова виходу з циклу. Саме тому ця команда повторення інакше називається
Такий оператор повторення має наступні характерні риси:
• використовується коли не відома заздалегідь кількість повторень;
• тіло циклу виконується хоча б один раз;
• тіло циклу виконується, поки умова хибна
• у тілі може знаходитися будь-яка кількість операторів без операторнихдужок
• принаймні один оператор у тілі циклу повинен змінювати значенняумови, інакше цикл буде виконуватися нескінченно.
Для передчасного виходу з циклу можна присвоїти параметру циклу значення, що виходить за діапазон дозволених значень.
Приклад програми з оператором Repeat
Program Example_2;
Uses crt;
Var a,b,c: integer;
Begin
Clrscr;
Repeat
Write(*Введіть величини кутів трикутника: ‘);
Readln(а,b,с);
Until (a>0)and(b>0)and(c>0)and(a+b+c)=180;
End.
Оператор повторення while
Формат опису:
while < умова > do
begin
<серія>;
end;
Як і в попередньому випадку, програміст сам повинен подбати про переприсвоєння значення змінної, що визначає умову виходу з циклу, інакше він буде нескінченним.
Приклад програми з оператором While
Program Example_3;
Uses crt;
Var N: longint; Counter: integer;