Пример №6: Оператор CASE

В примере №6 мы разберём действие оператора выбора CASE, задание мы поставили в предыдущем посте, где собственно описывался оператор CASE.

Пример 6

uses Crt;
var
   ch : char;
   x : real;
BEGIN
writeln('Введите вещественное число: ');
readln(x);
writeln('Укажите функцию, которую нужно вычислить:');
writeln('S – синус,  C - косинус ');
readln(ch);
case ch of
   'S','s': writeln('Синус равен ',sin(x):5:2);
   'C','c': writeln('Косинус равен ',cos(x):5:2);
else
 writeln('Буква указана неправильно');
end;
writeln('Нажмите Enter . . . ');
readln;
END.

Ту же самую программу можно было написать и с использованием оператора IF. Но в этом случае пришлось бы использовать вложенный IF, а также операцию OR. Как видите, оператор CASE позволяет избежать использования слишком сложных условных операторов.
Также как и в условном операторе, в операторе выбора часть else можно опускать. Тогда при отсутствии нужной константы в списке ничего не произойдет, и оператор просто завершит свою работу.