Примеры реализации полного и неполного ветвлений в языке Паскаль. Оператор перехода. В этом параграфе рассмотрим еще несколько примеров, иллюстри- рующих использование условного оператора в полной и неполной фор- мах в языке Паскаль. Также приведем пример использования безуслов- ного оператора (оператора перехода). Пример 1. Даны три целых числа a,b,c. Определить, принадлежит ли число c отрезку [a,b]. Ответ на экран выдать в виде сообщения ‘Да’ или ‘Нет’. Указания: Принадлежность числа c отрезку [a,b] определяется c по- мощью булевского выражения (c>=a) and (c<=b). Если оно истинно, то c принадлежит отрезку, иначе – не принадлежит. Соответственно в про- грамме необходимо использовать полную форму условного оператора, на каждой из ветвей которого будет располагаться один оператор вывода writeln c текстом сообщения: Program poln_vetvlen; Var a,b,c : integer; begin write(‘Введите a,b,c’); readln(a,b,c); If (c>=a) and (c<=b) then writeln(‘Да’) else writeln(‘Нет’); end. Пример 2. Даны три вещественных числа. Просуммировать те из них, которые являются положительными. Указания: Эта программа является частным случаем задачи обра- ботки потока данных, а именно – нахождение суммы чисел некоторой последовательности, удовлетворяющих заданному условию. Первона- чально сумму необходимо обнулить, а затем по очереди проверять каж- дое из чисел на выполнение заданного условия, и в случае истинности условия добавлять соответствующее число к сумме с помощью операто- ра присваивания вида: S:=S+<число>. То есть в программе необходимо организовать три последовательных неполных ветвления: 34 Program nepoln_vetvlen; Var a,b,c,s : real; Begin Write(‘введите три числа ’); Readln(a,b,c); S:=0; If a>0 then s:=s+a; If b>0 then s:=s+b; If c>0 then s:=s+c; Writeln( ‘Сумма равна ’,s:5:2) End. В двух рассмотренных примерах на каждой из ветвей стояло по одному оператору. Теперь рассмотрим пример, в котором на каждой ветви будет более одного оператора, то есть необходимо будет исполь- зовать составной оператор: Пример 3. Даны два вещественных числа x и y. Возвести эти числа в квадрат, если оба числа отрицательны, и удвоить их в против- ном случае. Указания: При истинности булевского выражения (x<0) and (y<0) необходимо возводить каждое из чисел в квадрат, то есть выпол- нять два оператора присваивания, при ложности – также два оператора присваивания для умножения каждого из чисел на число 2. Поэтому на ветвях then и else необходимо использовать составной оператор (не за- бывать ставить операторные скобки begin- end): Program sostavn_oper; var x,y: real; begin write(‘Введите 2 числа ’); readln(x,y); if (x<0) and (y<0) then begin x:=sqr(x); y:=sqr(y) end else begin x:=2*x; y:=2*y end; writeln(x:6:2, y:6:2) end.
