Case K of

А1: <оператор 1>;

А2: <оператор 2>;

. ..

АN: <оператор N>

else <оператор N+1>

end;

Здесь К – выражение-селектор, которое может иметь только простой порядковый тип (целый, символьный, логический). А1,…,AN – константы тоже же типа, что и селектор, выполняющие роль меток ветвей. Исполнение оператора начинается с вычисления выражения К, полученное значение сравнивается с константами (метками) и выполняется соответствующий оператор. Если ни одна из меток не совпала со значением К, то выполняется оператор после слова else.

Возможно использование неполного оператора выбора без ветви else. Метки ветвей также могут быть заданы списком или интервалом.

Пример 3. В старояпонском календаре был принят двенадцатилетний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, петуха, собаки и свиньи. Написать программу, которая по номеру года определяет его название в старояпонском календаре, если известно, что 1996 г. был годом крысы – началом очередного цикла.

Решение

Поскольку цикл является двенадцатилетним, поставим в соответствии название года остатку от деления номера этого года на 12. При этом учтем, что остаток от деления 1996 на 12 равен 4.

Program Goroskop;

Var Year: integer;

Write(‘Введите год’); readln (Year);

case year mod 12 of

0: Writeln (‘год Обезьяны’);

1: Writeln (‘год Петуха’);

2: Writeln (‘год Собаки’);

3: Writeln (‘год Свиньи’);

4: Writeln (‘год Крысы’);

5: Writeln (‘год Коровы’);

6: Writeln (‘год Тигра’);

7: Writeln (‘год Зайца’);

8: Writeln (‘год Дракона’);

9: Writeln (‘год Змеи’);

10: Writeln (‘год Лошади’);

11: Writeln (‘год Овцы’);

end;

End.

Задания:

1. Написать программу, которая по номеру дня недели (натуральному числу от 1 до 7) выдает в качестве результата количество уроков в нашем классе в этот день.

2. Написать программу, которая бы по введенному номеру единицы измерения (1 – дециметр, 2 – километр, 3 –
метр, 4 – миллиметр, 5 - сантиметр) и длине отрезка L выдавала бы соответствующее значение длины отрезка в метрах.

3. Дано натуральное число N. Если оно делится на 4, вывести на экран ответ N= 4k (где k – соответствующее частное); если остаток от деления на 4 равен 1, N=4k+1; если остаток от деления на 4 равен 2, N=4k+2; если остаток от деления на 4 равен 3, N=4k+3.

Например, 12 = 4 х 3, 22 = 4 х 5 + 2

4. Составить программу, позволяющую по последней цифре
данного числа определить последнюю цифру куба этого
числа.