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

Пример №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.

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 можно опускать. Тогда при отсутствии нужной константы в списке ничего не произойдет, и оператор просто завершит свою работу.