2. Цикл з передумовою (while), зображення в блок-схемі.

В більшості задач цикли доводиться виконувати невідому кількість разів. Ця ситуація виникає, якщо обчислення значення функції закінчується у випадках, коли досягнуто заданої точності, або коли виконання оператора залежить від інформації, що вводиться користувачем, або коли у масиві необхідно знайти елемент з конкретним значенням тощо. У цих випадках певну послідовність дій необхідно виконувати декілька разів, причому необхідне число повторень під час розробки програми невідоме і може бути визначеним тільки під час роботи програми, тобто в процесі обчислення задач.

Оператор циклу з передумовою - while (поки) призначений для організації багатократного виконання групи вказівок (тіло циклу) до тих пір, доки залишається істинною умова виконання циклу.

Оператор циклу з передумовою має вигляд:

while <логічний вираз> dо

begin

<вказівка 1>;

<вказівка 2>;

…

<вказівка n>

end;

Тут while (поки), dо (виконати) - зарезервовані слова; логічний вираз -умова, яка визначає виконання циклу.

Дія команди. Обчислюється значення логічного виразу (умови). Якщо умова істинна (приймає значення true), то виконується група вказівок (тіло циклу). Виконання програми знову повертається до перевірки умови циклу. Якщо умова хибна (приймає значення false), то виконується вказівка, яка знаходиться після оператору повторення з передумовою.

Блок-схема оператора циклу з передумовою має вигляд:

П римітка.

1. Якщо умова у вказівці повторення хибна при першій же перевірці, то тіло циклу не виконується жодного разу. Умова оператора є умовою входження в цикл.

2. Умову оператора повторення з передумовою необхідно підбирати таким чином, щоб в деякий момент вона змінила своє значення з true на false, інакше виникне ситуація "зациклювання" програми.

3. Програмісту необхідно самому потурбуватись про необхідність збільшення (зменшення) лічильника циклу на 1. Це можна зробити таким чином І:=І+1.

4. Входження в тіло оператора повторення можливе тільки через заголовок цього оператора.

Задача 3 . Нехай змінні х, s мають значення х=4, s=0. Після виконання команди

while х<=8 dо begin s:=s+х; х:=х+1 end;

вони набудуть значень s=4+5+6+7+8=30, х=9.

Приклад. Вивести таблицю чисел від 20 до 30, їхні квадрати та куби за допомогою команди while можна так:

i := 20;

while i <= 30 do

begin

writeln(i:4, sqr(i):6, exp(3*ln(i)); i :=i + 1 end;

Задача 4 Знайти суму всіх натуральних чисел від 1 до N.

program SUMA1;

var I,N,S: integer;

begin

writeln('BBeдіть кількість натуральних чисел:');

write('N=');

readln(N);

I:=l; S:=0;

while I<=N do

begin

S:=S+i; i:=i+l end;

writeln('S=',S)

end.

3. Цикл з післяумовою (repet-until), зображення в блок-схемах.

Оператор циклу з післяумовою призначений для організації багатократного виконання групи вказівок (тіло циклу) до тих пір, поки умова виконання циклу не стане істинною (логічний вираз дорівнює не false, а true).

Оператор циклу з післяумовою має вигляд:

rереаt

<вказівка 1>; <вказівка 2>;

….

<вказівка n>

until < логічний вираз>;

Тут rереаt (повторювати), until (до тих пір поки) - зарезервовані слова; логічний вираз - умова, яка визначає завершення циклу.

Перевірка умови здійснюється не на початку циклу, а в кінці (що гарантує, як мінімум, одноразове виконання тіла циклу).

Дія команди. Спочатку виконуються вказівки, які входять до тіла циклу. Потім обчислюється значення умови-виразу. Якщо умова хибна (тобто має значення false), то знову виконуються вказівки тіла циклу. Якщо умова стає істинною (true), то виконання циклу припиняється і виконується наступна вказівка програми.

Примітка.

1. Тіло циклу, яке складається з групи вказівок, не потрібно брати в дужки (begin - еnd), оскільки службові слова rереаt – until відіграють роль дужок.

2. Тіло циклу в операторі циклу з післяумовою виконується щонайменше один раз.

3. Умова оператору є умовою виходу з циклу.

4. Входження в тіло оператору циклу можливо тільки через заголовок цього оператору.

Блок-схема оператора циклу з післяумовою має вигляд:

Задача 5. Нехай змінні х, у мають значення х=5, у=0. У результаті виконання команди

repeat

у:=у+х;

z:=2*x;

х:=х-2

until х<=1;

змінні у, z, х набудуть значень у=0+5+3=8, z=6, x=1.