case Ch of'A'.. 'Z', 'a'.. 'z': Writeln ('буква'); '0'.. '9': Writeln ('цифра'); '+', '-', '*', '/': Writeln ('знак операции'); Else Writeln ('специальный символ'); End; Присутствие в операторе варианта элемента " else... " не обязательно. Оператор варианта выполняется следующим образом. В начале вычисляется значение селектора варианта, а затем выбирается для выполнения тот оператор, перед которым стоит метка варианта, имеющая данное значение. После этого выполняется следующий за ключевым словом end оператор. Если соответствующей метки нет, то выполняется оператор после ключевого слова else. Затем происходит переход к первому оператору, следующему после оператора варианта. Если соответствующей метки нет, а конструкция " else... " опущена, то происходит переход к первому оператору, следующему после оператора варианта. Примечание: Метки варианта не являются метками в обычном понимании. Они не объявляются в разделе описания меток. Задача: Составить программу вычисления значений функции Fi(i), заданной таблицей:
Решение: Program TablFun; Var i, Fi: integer; Begin Writeln ('Введите значение i: '); Readln (i); Case i of 1, 5, 6: Fi:= 1; 3, 4: Fi:= 2; 0, 2, 7, 8: Fi:= 3; Else Fi:= 0; End; Writeln (' Fi = ', Fi); End.
|
