1.3 Оператор розгалуження if (умовний оператор) - повна форма
Оператор розгалуження в мові програмування Pascal може записуватися в повній або скороченій формах.
Поєна форма оператора розгалуження має вигляд:
If <логічний вираз> then <оператор 1> else <оператор 2>; Службові слова, які використовуються в умовному операторі, мають зміст if -якщо, then - то, else - інакше.
Дія команди. Якщо логічний вираз істинний, то виконується оператор 1, а потім оператор, який знаходиться в програмі після всього оператору розгалуження; якщо логічний вираз хибний, то виконується оператор 2, а потім оператор, який знаходиться після оператору розгалуження. Оператори 1 та 2 можуть бути простими або складеними.
Блок-схема умовного оператору (повна форма) має вигляд:
Приклад. Нехай х= 9. У результаті виконання команд
if х> 7 then у: = х*х else у: = sin (х);
if х< 5 then z: = exp(x) else z: =sqrt (х);
отримаємо у = 81, z = 3.
Приклад програми порівняння двох чисел.
program Umova;
uses Crt;
var a,b: integer;
begin
clrscr;
write (‘a=’);
readln (a);
write (‘b=’);
readln (b);
if a > b then writeln(‘a більше b’) else writeln(‘b більше a’);
readln;
end.
В даному випадку, якщо а = 2, b = 5, то значення логічного виразу a>b хибне, отже на екрані з’явиться повідомлення - b більше a.
Задача 1. Обчислити і надрукувати значення складеної функції у у деякій заданій користувачем точці х, якщо
Блок-схема алгоритму задачі 1:
program Myfunction; uses Crt; var ,y: real; begin
clrscr;
writeln (‘Введіть ’);
readln (x);
if x < - 1 then y:=ln(abs(x)) else
if (x >= -1) and (x < 1) then y:=sin(x) else y:=cos(x);
writeln(‘x=’, x:5:2,’ y=’, y:5:2);
readln
end.
Щоб перевірити роботу програми потрібно задати X не менш три рази.
Результати роботи програми для кожного діапазону значень X:
Введіть x Введіть x Введіть x
3 -2 0,5
x= 3.00 y=-0.99 х=-2.00 у=-0.69 х= 0.50 у= 0.48
Зауваження. У команді розгалуження перед службовим словом else символ «;» не ставиться.
1.4 Оператор розгалуження (if) - скорочена форма
Коротка форма оператора розгалуження має вигляд:
If <логічний вираз> then <оператор 1>;
Дія команди. Якщо логічний вираз істинний, то виконується оператор 1, а потім оператор, який знаходиться в програмі після всього оператору розгалуження, якщо логічний вираз хибний, то виконується оператор, який знаходиться після оператору розгалуження.
Блок-схема умовного оператору (коротка форма) має вигляд:
Приклад. Нехай х= 25. Тоді у результаті виконання команд
if x > 12 then y:=2*x; z:=10;
if x < 5 then z:=exp(x);
отримаємо у = 50, z = 10.
1.5 Оператор goto
Goto - оператор безумовного переходу, який змінює послідовність виконання інших команд програми шляхом переходу до виконання команди, що має позначку (мітку).
Оператор безумовного переходу записується у вигляді:
goto <позначка>;
Приклад. Goto M1; Goto Мітка 1.
Позначка може стояти перед довільним оператором в програмі. Вона відокремлюється від оператора двокрапкою (:)
<позначка> : <оператор>;
Позначку треба заздалегідь оголосити на початку програми у розділі опису міток. Цей розділ відкривається службовим словом label і записується у вигляді:
label <список позначок>;
Приклад. Label M1, Мітка1, 7, а2;
Позначка може починатися з букви або бути числом від 0 до 9999. Однією позначкою може бути помічений тільки один оператор. Ідентифікатор позначки не повинен співпадати з ідентифікатором змінної або константи.
Задача 2. Ввести декілька наборів коефіцієнтів квадратного рівняння ax2+bx+c=0 і вивести повідомлення чи матиме рівняння дійсні корені, чи ні.
program Rivnyannya;
uses Crt;
label 99, finish;
var a,b,c,d,x,y:real;
begin
clrscr;
99: writeln (‘Введіть коефіцієнти квадратного рівняння’);
readln (a,b,c);
if a = 0 then goto finish;
d:= sqr(b) - 4*a*c*;
if d >= 0 then writeln (‘Дане рівняння має дійсні розв’язки’)
else
begin
writeln(‘Дані введені некоректно’); writeln(‘Рівняння дійсних розв’язків не має);
goto 99;
end;
finish: readln;
end.
Зауваження. Не можна передавати керування команді, яка є в середині підпрограми чи в середині складеної команди. Оператор безумовного переходу порушує принцип структурованого підходу до написання програм мовою Pascal, тому використовувати його необхідно у випадку крайньої необхідності.