ОПЕРАТОРЫ ВЕТВЛЕНИЯ или УСЛОВНЫЕ ОПЕРАТОРЫ
Если дальнейший ход программы зависит от некоторых данных, то используют условные операторы.
Их два:
1) оператор выбора IF
2) оператор выбора CASE
УСЛОВНЫЙ ОПЕРАТОР IF... THEN... ELSE
Перевод на русский - ЕСЛИ...ТО...ИНАЧЕ.
Общий вид оператора:
IF логическое выражение THEN оператор 1 ELSE оператор 2;
При выполнении оператора IF вначале вычисляется логическое выражение, которое может принимать значения:TRUE или FALSE, а после выполняется оператор 1 если TRUE или оператор 2 если FALSE.
Условный оператор IF может быть использован в двух формах:
1) полной IF..THEN..ELSE;
2) неполной IF..THEN.
При выполнении оператора IF в неполной форме, после вычисления выражения выполняется оператор после THEN, если TRUE и следующий после IF оператор, если FALSE.
Задача: Найти число корней квадратного уравнения ax2+bx+c=0, если оно задано своими коэффициентами.
Program z1;
uses crt;
var a,b,c,d:real;
begin clrscr;
writeln(‘введите значение коэффициентов a,b,c’);
readln(a,b,c);
d:=b*b-4*a*c;
If d>0 then write(‘корней два’);
If d=0 then write(‘один корень’);
If d<0 then write(‘нет корней’);
end.
Общий вид оператора CASE
CASE Переключатель OF
Список констант1:Оператор1;
Список констант1:Оператор2;
..................................................
Список констант1:ОператорN;
ELSE Оператор
END;
Переключатель принимает одно из значений списка констант. В зависимости от этого выполняется тот или иной оператор. ELSE является не обязательным, как и в операторе IF.