Тіло циклу може бути простим або складеним. Цей оператор забезпечує виконання тіла циклу доти, доки не будуть перебрані всі значення параметра циклу від початкового до кінцевого.
Параметр циклу, його початкове і кінцеве значення повинні належати до одного типу даних. При цьому можливе використання будь-якого скалярного типу: цілого ( integer, byte, word, longint ) ; булівського ( boolean ); символьного ( char ). Дійсний тип даних використовувати заборонено. Значення параметру циклу послідовно збільшується при for... toабо зменшується при for... downtoна одиницю при кожному повторі. Кількість повторів тіла циклу в операторі forможна визначити за таблицею:
Оператор
S1
S1=S2
S1>S2
for... to
S2-S1+1 разів
1 раз
He виконується
for...downto
He виконується
1 раз
S1-S2+1 разів
В операторі forпісля doможе знаходитися складений оператор, у тілі якого заборонені оператори, що змінюють значення параметру циклу . Після нормального завершення циклу значення параметру циклу дорівнює кінцевому значенню. Цикл може не виконатися зовсім (див. табл.), але ніколи не може «зациклитися», на відміну від наступних двох операторів повторення.
Приклад програми з оператором For
Умова задачі. Знайти суму всіх натуральних чисел від 1 до 100.
Program Example_1;
Uses crt;
Var Sum, i: integer;
Begin
Clrscr;
Sum:= 0;
For i:= 1 to 10 do Sum:= Sum + i;
Writeln(‘Sum = ‘ Sum); Readkey;
End.
Оператор повторення repeat . Цей оператор циклу складається із заголовку ( repeat ), тіла та умови закінчення ( until ).
Формат опису:
repeat
<���серія>
until < умова >;
Умова — вираз булівського типу. Про умови ми вже говорили в темі «Команда розгалуження», і всі особливості їх застосування та оформлення в цій команді нічим не відрізняються від попереднього випадку. У цьому циклі спочатку виконується серія (тіло циклу), а потім перевіряється умова виходу з циклу. Саме тому ця команда повторення інакше називається циклом із післяумовою . Якщо умова виходу з циклу хибна ( false ), цикл активізується ще раз, якщо результат істинний ( true ), відбувається вихід із циклу.
Такий оператор повторення має наступні характерні риси:
• використовується коли не відома заздалегідь кількість повторень;
• тіло циклу виконується хоча б один раз;
• тіло циклу виконується, поки умова хибна ( false );
• у тілі може знаходитися будь-яка кількість операторів без операторнихдужок ( begin... end );
• принаймні один оператор у тілі циклу повинен змінювати значенняумови, інакше цикл буде виконуватися нескінченно.
Для передчасного виходу з циклу можна присвоїти параметру циклу значення, що виходить за діапазон дозволених значень.
Приклад програми з оператором 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аналогічний оператору repeat , але перевірка умови виконання тіла циклу виконується на самому початку оператора, тому цикл інакше називається циклом із предумовою .
Формат опису:
while < умова > do
begin
<���серія>;
end;
Умова —булівський вираз, а серія —простий або складений оператор. Перед кожним виконанням тіла циклу обчислюється значення виразу умови. Якщо результат є істинним ( true ), тіло циклу виконується, а інакше відбувається вихід із циклу і перехід до першого після whileоператору. Якщо перед першим виконанням циклу значення виразу було хибним ( false ), то тіло циклу взагалі не виконується і відбувається перехід на наступний оператор.
Читать дальше