Контрольні запитання

1. В яких випадках доцільно використання оператору вибору?

2. Яким чином працює оператор вибору?

3. Чим відрізняється повна і скорочена форми оператора вибору?

4. Яка особливість конструкції повної форми оператора вибору?

5. Якого типу можуть бути порядкові константи оператору вибору?

6. Коли оператори заключаються в операторні дужки?

7. За якої умови операторні дужки не ставляться?

8. Як організовується список порядкових змінних оператора вибору?

9. Чи можливий запис з вкладених операторів? Наведіть приклад

Лабораторна робота № 5 “Циклічні оператори. Умовні цикли”

Мета: сформувати знання і вміння використовувати при розв’язуванні задач операторів повторення.

Питання для вивчення

1. Цикл з передумовою WHILE … DO.

2. Цикл з післяумовою REPEAT… UNTIL.

3. Відмінності у роботі циклів на перед- та післяумовою.

Теоретичні відомості

Цикл з передумовою WHILE … DO

Розглянемо третю форму оператора циклу - WHILE…DO.

While умова do

Begin

Оператор 1;

Оператор 2;

…

оператор N;

end;

Приклад 6_1.Підрахуватисуму чисел від 1 до 50.

Program summing_1;

Var

i,sum:integer;

Begin

Sum:=0;

I:=0;

while i <50 do

begin

i:=i+1;

Sum:=sum+i;

end;

Writeln (‘Сума чисел від 1 до 50 дорівнює :’,sum);

End.

В рамках прикладу 6 умова виконання циклу формулюється по іншому( необхідно додати всі числа від 1 до 50 (включно), тобто додати всі цілі числа які <= 50 ). Необхідно в кожному циклі збільшувати число i на одиницю і додавати його до вже відомої суми, тобто можна сказати: ” До тих пір, поки значення змінної не перебільшить визначенної величини, виконувати слідуючі операції.

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

При використанні в програмі циклічної конструкції REPEAT … UNTIL послідовність операторів (тіло циклу) обрамляється зарезервованими словами REPEAT і UNTIL. В будь-якому випадку послідовність операторів, що входять в тіло циклу, виконується один раз, після чого перевіряється умова завершення циклу, що записується після зарезервованого слова UNTIL. Якщо ця умова виконується, цикл завершується. В іншому випадку – тіло циклу повторюється ще раз, після чого знову перевіряється умова завершення циклу. Загальна форма запису оператора REPEAT … UNTIL показана нище:

REPEAT

Оператор 1;

Оператор 2;

…

Оператор N;

UNTIL умова;

Приклад 6_2.Підрахувати суму чисел від 1 до 50.

Якщо ми повернемся до нашого прикладу підрахунку суми від 1 до 50 і перетворимо програму так, щоб в ній використовувався цикл REPEAT … UNTIL, то ми отримаємо слідуючу програму:

Program summing_up_2;

Var

i,sum: integer;

Begin

Sum:=0;

i:=0;

Repeat

i:=i+1;

Sum:=sum+i;

Until i=50

Writeln (‘Сума чисел від 1 до 50 дорівнює :’,sum);

End.

Тут необхідно врахувати, що для збільшення на 1 значення змінної і на кожному кроці циклу потрібен окремий оператор. Це пов’язано з тим, що цикл REPEAT … UNTIL не робить це автоматично( зверніть увагу на те, що змінна і, як і змінна Sum, ініціалізується на початку програми. Це необхідно для того, щоб лічба чисел в циклі REPEAT … UNTIL починалася з відповідної величини). При кожному виконанні циклу в прикладі змінна і буде збільшуватися на 1. Коли до змінної Sum додається перший доданок, змінна і має значення 1. При останьому виконанні циклу змінна і збільшується з49 до 50 і додається до суми. В результаті змінна Sum містить суму всих чисел від 1 до 50 включно.