Приклад.

Записати програму розв'язування квадратного рівняння ах² + bх + с = 0.

PROGRAM quadreq;

VAR a,b,c: real;

x1, x2: real;

d: real;

BEGIN

writeln ('Введіть коефіцієнти a,b,c:');

read (a,b,c); writeln;

IF (a=0) AND (b=0) THEN

writeln (‘Рівняння вироджене')

ELSE

IF a=0 THEN

writein (‘Рівняння лінійне, корінь=’, c/b)

ELSE

BEGIN

write (‘розв^rязування’);

writeln (‘квадратногорівняння');

writeln (a:1,’*x^2+’,b:1,’*x+’,c:1,’=0’);

writeln;

d:=sqr(b)-4*a*c;

IF d<0 THEN

BEGIN

write ('Рівняння має ‘);

writeln(‘комплексні корені ' )

END

ELSE

BEGIN

x1:=(-b+sqrt (d)) / (2*a);

x2:=(-b-sqrt(d))/(2*a);

writeln ('Корені рівняннях: x1=’, x1,’ x2=’, x2)

END

END

END.

Оператор вибору. Якщо треба перевіряти кілька умов і залежно від них виконувати ті чи інші дії, то доводиться ви користовувати вкладені один в другий умовні оператори. Проте програми з вкладеними умовними операторами ста­ють менш наочними i складнішими для розуміння. У мові Паскаль для запису таких програм є оператор вибору (ва­ріанта), який дає змогу записувати програми простіше і на­очніше.

Оператор вибору записується у вигляді:

CASE вираз OF

список констант: оператор;

список констант: оператор;

……………………………….

список констант: оператор

END

Вираз, який стоїть між службовими словами CASE (ва­ріант) і OF (з) називається селектором. Якщо список кон­стант вибору містить більше однієї константи, то вони відокремлюються одна від однієї комами. Тип констант ви­бору повинен збігатися з типом селектора. Тип виразу-се­лектора (відповідно i констант вибору) може бути будь-яким скалярним типом, крім real.

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

Якщо в операторі вибору необхідно помістити після де­якого списку констант вибору не один оператор, а серію, то її треба об'єднати в один складений оператор (взяти в операторні дужки BEGIN — END).

Приклади операторів вибору

CASE n MOD 2 OF

0: writeln (n, ‘— парне');

1: writein (n, ‘— непарне’)

END

CASE odd(n) OF

true: writeln (n, ‘— непарне')

false: writeln (n, ‘— парне')

END

4. Записати програму, яка визначає квартал за порядковим номе­ром місяця.

PROGRAM quarter;

VAR month: іnteger;

BEGIN

writeln ('Введіть порядковий номер місяця:');

Readin (month);

IF (month< i) OR (month >12)

THEN writeln ('Такого місяця немає’)

ELSE

CASE month OF

1,2,3: writeln (‘перший квартал');

4,5,6: writeln ('другий квартал’);

7,8,9: writeln(‘третій квартал’);

10,11,12: writeln(‘четвертий квартал’);

END

END.

У деяких версіях мови Паскаль (зокрема в Турбопаскалi) можна використовувати більш загальну форму операто­ра вибору, а саме: