ОПЕРАТОРЫ ВЕТВЛЕНИЯ или УСЛОВНЫЕ ОПЕРАТОРЫ

Если дальнейший ход программы зависит от некоторых данных, то используют условные операторы.

Их два:

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.

Задача:  Найти число корней квадратного уравнения ax²+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.