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

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

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

CASE < ключ_выбора> OF < список_выбора> [ELSE < операторы> ] END

Здесь CASE, OF, ELSE, END - зарезервированные слова (случай, из, иначе, конец);

< ключ_выбора> - ключ выбора;

< список_выбора> - одна или более конструкций вида:

< константа_выбора>: < оператор>;

< константа_выбора> - константа того же типа, что и выражение < ключ_выбopa>;

< операторы> - произвольные операторы Турбо Паскаля.

Оператор выбора работает следующим образом. Вначале вычисляется значение выражения < ключ_выбора>, а затем в последовательности операторов < список_выбора> отыскивается такой, которому предшествует константа, равная вычисленному значению. Найденный оператор выполняется, после чего оператор выбора завершает свою работу. Если в списке выбора не будет найдена константа, соответствующая вычисленному значению ключа выбора, управление передается операторам, стоящим за словом ELSE. Часть ELSE < оператор> можно опускать. Тогда при отсутствии в списке выбора нужной константы ничего не произойдет и оператор выбора просто завершит свою работу.

Пример. Разработать программу, которая вычисляет значение одной из заданных функций в указанной точке.

Предоставим пользователю возможность выбрать функцию через простейшую имитацию меню, в котором каждой функции соответствует некоторое число (код):

Введите код функции:

- y=sin(x)

- y=cos(x)

- у=ехр(х)

В зависимости от значения введенного кода выбирается одна из функций. Ниже представлена программа, реализующая разработанный алгоритм.

Program ex;

Var x, y: real; Kod: byte; Key: boolean;

Begin

WriteLn('Введите код функции: ');

WriteLn('l - sin(x)');

WriteLn('2 - cos(x)');

WriteLn('3 - exp(x)');

ReadLn(Kod);

Write('Введите значение аргумента: ');

ReadLn(x);

Key: =true; {признак правильности кода}

case Kod of

1: y: =sin(x);

2: y: =cos(x);

3: y: =exp(x);

else Key: =false; {код не соответствует функции}

end;

if Key then WriteLn ('IIpu x= ', x: 12: 6, 'y= ‘, y: 12: 6)

else WriteLn ('Введен неверный код функции.');

End.

Лекция 7. Организация программ циклической структуры (2 часа)