Особливий випадок розгалуження: case of

Особливим випадком розгалуження є оператор вибору case. Оператор case використовують у тому випадку, коли необхідно зробити вибір більш ніж із 2-х варіантів. Загальна структура оператора:

сase <вираз-селектор> of

<значення 1>:<оператор 1>;

<значення 2>:<оператор 2>;

……………………………………………

<значення m>:<оператор m>

еlse <оператор>  {Може бути відсутній}

еnd;

Задача 1. Складіть програму, яка за порядковим номером місяця року визначає його назву.

program month;

var n: byte;

begin

 writeln('введіть порядковий номер місяця року');

 read(n);

 case n of           {задаємо перелік варіантів вибору}

 1: writeln('Січень'); {якщо користувач ввів число 1, то з'являється повідомлення "Січень"}

 2: writeln('Лютий'); {якщо користувач ввів число 2, то з'являється повідомлення "Лютий"}

 3: writeln('Березень'); {якщо користувач ввів число 3, то з'являється повідомлення "Березень"}

 4: writeln('Квітень'); {якщо користувач ввів число 4, то з'являється повідомлення "Квітень"}

 5: writeln('Травень'); {якщо користувач ввів число 5, то з'являється повідомлення "Травень"}

 6: writeln('Червень'); {якщо користувач ввів число 6, то з'являється повідомлення "Червень"}

 7: writeln('Липень'); {якщо користувач ввів число 7, то з'являється повідомлення "Липень"}

 8: writeln('Серпень'); {якщо користувач ввів число 8, то з'являється повідомлення "Серпень"}

 9: writeln('Вересень');{якщо користувач ввів число 9, то з'являється повідомлення "Вересень"} 

 10: writeln('Жовтень'); { тощо...}

 11: writeln('Листопад'); 

 12: writeln('Грудень') 

 else writeln ('Помилка вводу даних')  {якщо не можна вибрати жодного значення з переліку, то вивести повідомлення користувачу}

 end;

end.

Приклади задач

Задача 2. Складіть програму, яка за порядковим номером дня тижня визначає його назву.

program example3;

var n: byte;

begin

 writeln('введіть порядковий номер дня тижня');

 read(n);

 case n of

 1: writeln('Понеділок');

 2: writeln('Вівторок');

 3: writeln('Середа');

 4: writeln('Четвер');

 5: writeln('П`ятниця');

 6: writeln('Субота');

 7: writeln('Неділя')

 else writeln ('Помилка вводу даних')

 end;

end.

Задача 3. Складіть програму, яка за порядковим номером дня тижня визначає робочий він, чи вихідний (вихідними вважати суботу і неділю).

program example4;

var n: byte;

begin

 writeln('введіть порядковий номер дня тижня');

 read(n);

 case n of

 1..5: writeln('Робочий');

 6..7: writeln('Вихідний');

 else writeln ('Помилка вводу даних')

 end;

end.