Program summa1;

const n = 109;

sum: Real;

Begin

sum: = 0;

i: = 1;

while i < = n do

begin

sum: = sum + 1 / i;

End;

WriteLn('сума= ', sum: 10: 5);

end.

Цикл у цій програмі працює в такий спосіб:

· спочатку i=1, sum =0;

· умова i < = 100 у заголовку оператора while істинно, тому починається виконання циклу;

· значення суми збільшується на одиницю: sum = 0 + 1;

· i збільшується на i+1 = 2;

· умова 1 < = 100 знову щира, тому тіло циклу повторюється черговий раз;

· значення суми sum=0+l+ +…;

· після виконання даної послідовності дій необхідне число раз одержуємо sum =...+ 1 / 100, і = 101;

· умова i < = 100 помилкова, тому цикл завершується. Наступною дією буде вивод результату.

Відзначимо, що в даному рішенні використовувалася константа. Константа може мати ім'я, тоді вона називається іменованою константою. З'являється Жована константа в пропозиції опису констант, що розміщається в розділі описаний програми і має вигляд:

const ім'я = значення;

Використання іменованих констант переслідує дві мети:

· зробити програму більш зручної для розуміння. Якщо, допустимо, у програмі часто використовується число 12, то іноді зручніше один раз дати йому ім'я наприклад dozen, а потім використовувати це ім'я;

· полегшити зміна програми. Якщо, скажемо потрібно змінити кількість елементів суми, то краще змінити один рядок у пропозиції опису констант, чим вносити виправлення по всій програмі.

Цикл із післяумовою

Наступний різновид циклу — цикл із післяумовою. Розглянемо цей різновид:

Repeat

група операторів

until умова;

Тут спочатку виконується група операторів, а потім виробляється перевірка, чи варто знову повторити цю групу. Якщо умова помилкова, виконання циклу повторюється, інакше — закінчується.

Рішення попередньої задачі про підсумовування з використанням циклу repeat... until виглядає так: