Умова задачі. Знайти суму всіх натуральних чисел від 1 до 100.
Розв'язання:
Program Example_l ;
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.
Ø принаймні один оператор у тілі циклу повинен змінювати значення умови, інакше цикл буде виконуватися нескінченно.
Для передчасного виходу з циклу можна присвоїти параметру циклу значення, що виходить за діапазон дозволених значень.