Оператор выбора позволяет выбрать одно из нескольких возможных продолжений программы. Параметром, по которому осуществляется выбор, служит ключ выбора -выражение любого порядкового типа (любого из рассмотренных, кроме типов REAL и STRING, см. гл. 4).
Структура оператора выбора такова:
CASE <ключ_выбора> OF <список_выбора> [ELSE <операторы>] END
Здесь:
- CASE, OF, ELSE, END — зарезервированные слова (случай, из, иначе, конец);
- <ключ_выбора> — ключ выбора;
- <список_выбора> — одна или более конструкций вида:
- <константа_выбора> : <оператор>;
- <константа_выбора> — константа того же типа, что и выражение<ключ_выбopa> ;
- <операторы> — произвольные операторы Турбо Паскаля.
Оператор выбора работает следующим образом. Вначале вычисляется значение выражения <ключ_выбора>, а затем в последовательности операторов <список_выбора> отыскивается такой, которому предшествует константа, равная вычисленному значению. Найденный оператор выполняется, после чего оператор выбора завершает свою работу. Если в списке выбора не будет найдена константа, соответствующая вычисленному значению ключа выбора, управление передается операторам, стоящим за словом ELSE. Часть ELSE <оператор> можно опускать. Тогда при отсутствии в списке выбора нужной константы ничего не произойдет и оператор выбора просто завершит свою работу.
Составим программу (пример 2.8), имитирующую работу микрокалькулятора. Программа вводит две строки: первая содержит два произвольных числа, разделенных пробелом, вторая — символ арифметического действия, например:
2 2
*
или
18.35 0.12
/
Над введенными числами осуществляется соответствующее действие и результат выводится на экран. Признаком конца работы программы служит ввод любого символа, отличного от +,-,*, /.
Пример 2.8
Program Calc;
{Программа вводит два числа в первой строке и один из знаков +, -, *, / — во второй и выводит на экран результат соответствующего арифметического действия}
var
operation : Char; {Знак операции}
х, у, z : Real; {Операнды и результат}
stop : Boolean; {Признак ошибочной операции и останова}
begin
stop := false;
repeat
WriteLn; {Пустая строка-разделитель}
Write(‘x,y= ‘ ) ;
ReadLn(x,y);
Write(‘операция: ‘) ;
ReadLn(operation);
case operation of
‘ + ‘ : z : =x + y;
‘ — ‘ :z : =x — y;
‘ * ‘ :z : =x * y;
‘ / ‘ :z : =x / y;
else
stop:= true;
end;
if not stop then WriteLn(‘результат=’,z)
until stop
end.
Любому из операторов списка выбора может предшествовать не одна, а несколько констант выбора, разделенных запятыми. Например, следующая программа при вводе одного из символов: у или Y выведет на экран слово «Да», а при вводе n или N — слово «Нет»:
var
ch : Char ;
begin
ReadLn (ch) ;
case ch of
‘n’,’N’ : WriteLn (‘Нет’ );
‘y’,’Y’ : WriteLn (‘Да’)
end
end.