Оператор выбора

Оператор выбора позволяет программировать ветвления по многим направлениям. Этот оператор организует переход на одну из нескольких ветвей в зависимости от значения заданного выражения (селектора выбора).

Формат оператора выбора:

case <S> of

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

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

. . .

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

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

end;

Здесь <S> — выражение-селектор, которое может иметь только простой порядковый тип (целый, символьный, логический).

<C1>,..., <CN> — константы того же типа, что и селектор, выполняющие роль меток ветвей. Метки ветвей могут быть заданы списком констант, перечисленных через запятую, или интервалом.

Исполнение оператора начинается с вычисления выражения <S>, полученное значение сравнивается с константами (метками) и выполняется соответствующий оператор. Если ни одна из меток не совпала со значением <S>, то выполняется оператор после слова else.

Возможно использование неполного оператора выбора без ветви else. Если она отсутствует и значение выражения <S> не совпадает ни с одной из перечисленных констант, весь оператор рассматривается как пустой. В отличие от оператора if перед словом else точку с запятой можно ставить.

Пример:

case i of

0, 2, 4, 6, 8: writeln(‘четная цифра’);

1, 3, 5, 7, 9: writeln(‘нечетная цифра’);

10 . . 100: writeln(‘число от 10 до 100’);

else

writeln(‘отрицательное или >100’)

end;

Задача.

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

Решение.

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

program Goroskop;

var

year:integer;

begin

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.

Задача.

По введенному номеру дня недели определите название дня недели.

Решение.

Program vibor;

Uses CRT;

Var n:integer;

Begin

ClrScr;

Write('Введите номер дня - ');

Readln(n);

case n of

1:Writeln('Понедельник');

2:Writeln('Вторник');

else Writeln('Такого дня недели нет')

end;

Readkey

End.

Структурированные типы данных

Структурированные типы данных представляют собой наборы однотипных или разнотипных компонент.

В Паскале существуют следующие структурированные типы:

• тип-массив;

• тип-строка;

• тип-запись;

• тип-множество;

• тип-файл.