Я готуюсь до курсу інформатики. Алгоритмізація та програмування

На початку уроку повторити з учнями загальні відомості про цикли. У мові програмування Паскаль існує три типи циклів: for, repeat та while. Якщо кількість повторень відома заздалегідь, використовується оператор for, якщо кількість повторень невідома, застосовуються оператори repeat або while.

Оператор повторення for. Цей оператор повторення інакше називається циклом з параметром (або лічильником). Він складається із заголовку та тіла циклу і може бути поданий у двох форматах:

1.for <параметр цихлу> := <S1> to <S2> do

begin

<серія>;

end;

2. for <параметр циклу> := <S1> downto <S2> do

begin

<серія>;

end;

де 51 і 52 — вирази, що визначають початкове і кінцеве значення параметру циклу; for.. do — заголовок циклу; <серія> — тіло циклу.

Тіло циклу може бути простим або складеним. Цей оператор забезпечує виконання тіла циклу доти, доки не будуть перебрані всі значення параметра циклу від початкового до кінцевого.

Параметр циклу, його початкове і кінцеве значення повинні належати до одного типу даних. При цьому можливе використання будь-якого скалярного типу: цілого (integer, byte, word, longint); булівського (boolean); символьного (char). Дійсний тип даних використовувати заборонено. Значення параметру циклу послідовно збільшується при for... to або зменшується при for... downto на одиницю при кожному повторі. Кількість повторів тіла циклу в операторі for можна визначити за таблицею:

Оператор

S1<S2

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).