Оператор выбора CASEДанный оператор является обобщением условного оператора. Его общий вид следующий: case выражение of список_констант_1: оператор_1; список_констант_2: оператор_2; ... список_констант_n: оператор_n end; Здесь значения выражения и констант должны быть одного и того же скалярного типа (кроме real), т. е. integer, boolean, char, ограниченный тип или тип “перечисление”. Оператор выбора действует следующим образом: если значение выражения равно одной из констант, то выполняется соответствующий ей оператор. Затем управление передается за пределы оператора выбора. Если значение выражения не совпадает ни с одной константой, то управление сразу передается за пределы оператора выбора. Пример: case I+1 of 2: X: =0; 1OO, 3: X: =X*X; 4: X: =sin(X) end; A: =A+1; Если значение I+1 есть 100 или 3, то выполняется оператор X: =Х*Х, а затем управление передается на оператор А: =А+1. Замечание. Метки оператора case не описываются в разделе lаbel, и на них нельзя переходить оператором goto. В Тurbo Pascale оператор case может использоваться с ключевым словом else, имеющем тот же смысл, что и слово else в операторе if: case выражение of список_констант_1: оператор_1; .............................. список_констант_n: оператор_n else оператор end; Перед else, как и в операторе if, точка с запятой не ставится. Пример: program pr; Var I: char; Begin read (I); case I of 'A'.. 'Z', 'a'.. 'Z': Write (' Введена буква'); '0'.. '9': Write (' Введена цифра') else Write (' Введен символ, отличный от буквы и цифры') end; end. Кроме одиночных констант в альтернативах оператора варианта могут быть заданы списки и / или диапазоны значений, которые в этом случае должны разделятся символом ', ' (запятая), например: case Switch of 1.. 2: Proc1; 3, 4, 10.. 20: Proc2; 5, 6: Proc3 Else Proc4 End В этом примере оператор процедуры Proc 2 будет выполнен в том случае, когда переменная switch будет иметь одно из следующих значений: 3, 4, 10, 11, 12, …, 19, 20 При использовании оператора варианта должны выполнятся следующие правила: Значение выражения - “переключателя”, записанного после служебного слова case, должно принадлежать дискретному типу; для целого типа они должны лежать в диапазоне -32769.. 32768. Все константы, предшествующие операторам альтернатив, должны иметь тип, совместимый с типом выражения. Все константы в альтернативах должны быть уникальны в пределах оператора варианта (то есть повторения констант в альтернативах не допускаются); диапазоны не должны пересекаться и не должны содержать констант, указанных в данной или других альтернативах. Следует обратить внимание на то, что синтаксис языка предполагает один оператор для каждой альтернативы; при необходимости задания нескольких операторов следует сгруппировать их в составной оператор. В то же время ветвь else допускает последовательность операторов, разделенных символом ';' (точка с запятой). Примеры выполнения заданий алгоритмов разветвляющей структуры Пример 4.1 Составить структурную схему и программу для вычисления функции m:
где а=0,0372; b=1, 74*10-2 Структурная схема алгоритма приведена на рис. 1. { Разветвляющейся алгоритм } Program razvet; Var A, B, M: real; M1, M2: real; Begin readln (A, B); M1: =-(Abs(A)+Abs(b))/(A*A+B*B); M1: =Exp(M1); M2: =Abs(A+B); C: =A*B; if C>0. 5 then WriteLn('M=', M1); Else if C>0,4 then {0,4<c<=0,5} WriteLn ('M=', M2); Else WriteLn (‘ счет завершен’) End.
Рисунок 1 - Структурная схема к примеру 4.1 Пример 4.2 Составить структурную схему и программу для вычисления функции y:
где Структурная схема приведена на рис. 2.
Рисунок 2 - Структурная схема к примеру 4.2 program F1; Const Pi: =3.1416; Var A, B, X, Xн, Xк, Hx, Y: real; Begin read(A, B, Xн, Xк, Hх); X: =Xн while X<=Xк DO Begin if X<=-Pi/2 then Y: =2*sin(x) Else if X<Pi/2 then Y: =A*sin(X)+B Else Y: =cos(X); WriteLn(' X=', X, ' Y=', Y); X: =X+Hх end; end. Пример 4.3. Ввести номер дня недели и вывести соответствующий ему день недели на русском и английском языках. Program dnedeli; Var N: integer; (* номер дня недели *) Begin WriteLn ('Введите номер дня недели: '); read (N); case N of 1: WriteLn ('понедельник'); 2: WriteLn ('вторник'); 3: WriteLn ('среда'); 4: WriteLn ('четверг'); 5: WriteLn ('пятница'); 6: WriteLn (' суббота'); 7: WriteLn ('воскресенье') End end.
Рис. 3 - Структурная схема к примеру 4.3 Пример 4. 4 Заданы три числа, обозначающие число, месяц и год. Составить программу определения номера этого дня с началом года. Указание: Високосный год это тот, у которого номер делится на 4, но не делится на 100, или у которого номер делится на 400. { Определение номера дня года } program ndg; Var D, M, G, DN, MM: integer Begin read (D, M, G); {D-день месяца, М-месяц, G-год} Write (D: 3, '. ', M: 2, '. ', G: 4, ' - '); Dg=D; (* Dg-день года *) for Mm: =1 to M-1 DO case Mm of 1, 3, 5, 7, 8, 10, 12: Dg: =Dg+31; 4, 6, 9, 11: Dg=Dg+30; 2: if (G mod 4=0) and (G mod 100<>0) OR (G mod 400=0) then Dg: =Dg+29 Else Dg: =Dg+28; End; WriteLn (Dg: 3, 'день года') End. Контрольные вопросы 1. Какой вычислительный процесс называется разветвляющимся? 2. Какие операторы передачи управления Вы знаете? 3. Оператор перехода, укажите на его общий вид. Целесообразность его использования в программе? Приведите пример. 4. Какие формы записи условного оператора Вы знаете? Приведите примеры. 5. Может ли условный оператор содержать в себе другие условные операторы? Как называется такая конструкция? Приведите примеры. 6. Зачем необходимо при отладке программы тестировать все ветви алгоритма? 7. Оператор выбора и его назначение. 8. Приведите пример программы с использованием вложенных операторов выбора. 9.Приведите пример программы с использованием вложенных операторов if. 10. Приведите пример программы с использованием условного оператора, внутри которого имеется составной оператор.
|
