Оператор выбора позволяет программировать ветвления по многим направлениям.

саsе К of А 1 : ; А 2 : ;... A N : else ; end; где К – выражение селектор; А 1 - A N – константы того же типа, что и селектор, выполняющие роль меток ветвей; Возможно использование неполного оператора выбора без ветви else.

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

Var Year : integer; begin write (' Введите год' ); readln (Year); саsе Year mod 12 of 0 : WriteLn (' Год Обезьяны' ) ; 1 : WriteLn (' Год Петуха' ) ; 2 : WritеLn('Год Собаки'); 3 : WritеLn('Год Свиньи'); 4 : WriteLn (' Год Крысы' ) ; 5 : WriteLn (' Год Коровы' ) ; 6 : WritеLn('Год Тигра'); 7 : WritеLn('Год Зайца'); 8 : WritеLn('Год Дракона'); 9 : WriteLn (' Год Змеи' ) ; 10 : WriteLn (' Год Лошади' ) ; 11 : WriteLn (' Год Овцы' ) end; end.

Задача Написать программу, которая по вводимому числу от 1 до 11 (номеру класса) выдает приветствующее сообщение «Привет, K-классник» Например, k=1 «Привет первоклассник» k=4 «Привет четвероклассник»