4. ОРГАНІЗАЦІЯ РОЗГАЛУЖЕННЯ МОВОЮ ПАСКАЛЬ

Вкладені оператори if…then…else для організації складних розгалужень
4.3. Організація розгалуження за

вибором альтернатив. Оператор case...of…end

за допомогою структурних операторів.

Структурні оператори будуються за допомогою спеціальних

зарезервованих слів, логічних виразів та інших операторів.
Такий оператор явно чи неявно містить одну чи декілька логічних перевірок.

else ;
Логічний вираз набуває одне з двох можливих значень: True

(істина), False (хибно).
Якщо логічний вираз набуває значення «істина», то виконується оператор1, інакше – оператор2.
! Зауваження. Перед ELSE не ставиться «;».
Згідно формальних правил мови, після THEN та ELSE допускається застосування лише одного оператора.
Але на практиці частіше виникають ситуації, коли при виконанні умови у логічному виразі слід виконати кілька операторів.
В цьому випадку використовується складовий оператор (begin … end;).

Вхідні дані: а,b.
Вихідне дане: min.
Початок
Кінець
a

min:=b;
write('min=',min);
end.

та використовується у випадку, коли дія виконується тільки при виконанні

деякої умови.
так

if <логічний вираз> then <оператор1>;

ні
<наступний оператор>

на екран.
Вхідне дане: а.
Вихідне дане: а.
Початок
Кінець
a-парне
Введення a
а
ні
так

0 then writeln('a=',a);
writeln('Press “ENTER” ');
readln;
end.

else
if

then <оператор 2>
else
if <умова 3> then <оператор 3>
.
.
.
else if <умова n> then <оператор n>;

в тому порядку, щоб вираз з найбільшою ймовірністю приймаючий значення

істина стояв на першому місці, вираз з меншою імовірністю - на другому і т.д. Це скорочує час виконання програми.
! Зауваження. Слід пам’ятати, що кожному else відповідає найближчий попередній if, який не має іншого else.
Якщо потрібно змінити послідовність дій, можна використати операторні дужки
Begin … End;

x2 √2,

xє[0,2]

Вхідне дане: х.
Вихідне дане: y.

0

2

x

y

X');
readln(x);
if x

else if x>2 then y:=1/sqr(x)
else y:=sqrt(2);
writeln('x= ',x:4:2,' y= ',y:4:2);
write('натисніть “ENTER” ');
readln
END.

постановка задачі:
обчислюємо D=b2 - 4ac
якщо D

D≥0, а=0, то рівняння має корінь x=-c/b
якщо D≥0, a≠0, то рівняння має два корені: х1,2= -b±√D/2a

readln(a,b,c);
D:=sqr(b)-4*a*c;
if D

має дійсних коренів')
else

if a=0 then
begin
x:=-c/b;
write('x= ',x:4:3)
end
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
write('x1=',x1:4:3,'x2=',
x2:4:3)
end
END.

де є декілька (три або більше альтернатив), використовується оператор case,

оскільки оператор if дозволяє обирати лише одну з двох можливих дій.

Оператор case називається оператором вибору.

;
[else ;]
end;

логічний вираз; значення виразу може бути цілого, символьного або логічного

типу.
Обчислення значення виразу визначає константу, за якою визначається список, де є відповідна константа. Виконується оператор, який відповідає списку.
Якщо значення виразу відсутнє в списках значень, то жодний оператор не виконується. В цьому випадку виконується гілка else.

0 у протилежному випадку.

Вхідне дане: а.
Вихідне дане: С.

1,2,3 : c:=a*a;
4,5,6 : c:=a-3;

7,8,9 : c:=a+3
else c:=0;
end;
writeln(c);
END.