Оператор вибору.

Оператор вибору дозволяє вибрати одне з декількох можливих продовжень програми.

Структура оператора вибору така:

case <ключ вибора>

<список вибора>

[else <оператори>]

end;

Розглянемо декілька прикладів:

Вводитися число від 1 до 4, визначаюче пору року. Дати назву цієї пори року (1 - зима, 2 - весна, 3 - літо, 4 - осінь).

program zadacha3_10;

var

n:byte;

Begin

writeln('Введіть номер пори року');

readln(n);

case n

1: Writeln('зима');

2: Writeln('весна');

3: writeln('літо');

4: writeln('осінь');

else

writeln('неправильно ввели номер пори року');

end;

End.

Складемо програму "КАЛЬКУЛЯТОР", яка після введення двох чисел і одного із знаків +, - * / проведе обчислення, а результат видасть на екран.

program zadacha3_11;

var

а,b,s:real;

sim:char;

Begin

writeln('Введіть два числа');

readln(а,b);

writeln('Введіть знак операції');

readln(sim);

case sim

'+': s:=a+b;

'-': s:=a-b;

'*': s:=a*b;

'/': s:=a/b;

end;

writeln ('результат',a,sim,b,' = ',s);

End.

В даній програмі відсутня частина else і тому, якщо ввести замість даних арифметичних знаків, ввести будь-який символ, то програма працюватиме, але працюватиме невірно.

Питання для повторення:

1. Скільки рядків може бути записано в списку вибору?

2. Чи може в операторі вибору бути відсутній частина else?

3. Сформулюйте, що може бути ключем вибору?

4. Чи можна оператор вибору замінити умовним оператором if .  then?

5. Скільки операторів if then знадобилося б для вирішення задачі 3 10?

Завдання для самостійної роботи:

1. Відредагуйте задачу zadacha3_11 так, щоб при введенні довільного символу програма видавала відповідь: "Введена некоректна арифметична операція";

2. Вводиться число від 1 до 10. Дати назву цього числа (1 - один, 2 - два, 10 - десять);

3. Вводиться число від 1 до 7, визначаюче день тижня. Дати назву цього дня (1 - понеділок, 2 - вівторок, 7 - неділя);

4. В спортивних змаганнях Кулька, кіт Матроськін, дядько Федір і листоноша Печкін зайняли відповідно 1, 2, 3 і 4 місця. Скласти програму, яка по номеру місця видає ім'я учасника змагань.

5. Вводиться число від 1 до 15. Вивести дане число, записане римськими цифрами (I, II, III, IV, V, VI .., XV);

6. Вводиться число від 1 до 15. Вивести дане число, записане в двійковій системі счислення (1, 10, 11, 100, 101 .., 1111);

7. Вводиться число від 1 до 12, визначаюче місяць року. Дати назву цього місяця року (1 -Январь, 2 - Лютий .., 12 Грудень);

8. Вводиться номер місяця. Вивести пору року для цього місяця (1 - зима ..., 3 - весна .., 8 - літо.);

9. Вводитися номер пори року. Вивести назви місяців для цієї пори року (1 – грудень, січень, лютий . . .);

10. Вводится число від 1 до 100. Дати назву цього числа (1 - один, 2 - два .., 100 - сто);

11. Дано натуральне число N (N<20), що визначає суму грошей в рублях. Дати для цього числа найменування: "рубель", "рубля", "рублів";

12. Дано натуральне число N (N<100), що визначає вік людини в літах. Дати для цього числа найменування: "рік", "роки", "літ";

13. Вводиться число від 1 до 7, визначаюче день тижня. Вивести розклад уроків у вашому класі цього дня.

Вивчаємо “Розгалуження в Pascal”

Тема уроку:

Умовний оператор.

Оператор вибору.

Практикум по рішення задач на розгалуження.

Мета заняття:

1. Закріпити навики написання алгоритмів з розгалудженнями;

2. Здійснити проміжний контроль знань;

3. Вдосконалення уміння будувати програми мовою Паскаль. Виховувати уважність, активність на уроці.