Алгоритмическая структура «ветвление». Команда ветвления.

Разветвляющий алгоритм – это алгоритм, в котором в зависимости от условия выполняется либо одна, либо другая последовательность действий.

Во многих случаях требуется, чтобы при одних условиях выполнялась одна последовательность действий, а при других - другая.

Вся программа состоит из команд (операторов). Команды бывают простые и составные (команды, внутри которых встречаются другие команды). Составные команды часто называют управляющими конструкциями. Этим подчеркивается то, что эти операторы управляют дальнейшим ходом программы.

 

Оператор ветвления на Паскале (условный оператор)

 

Чтобы вычисления могли разветвляться по нескольким направлениям, служит конструкция

IF < УСЛОВИЕ > THEN < ОПЕРАТОР 1> ELSE <ОПЕРАТОР 2>
Если условие справедливо (ИСТИНА), то выполняются <оператор 1> (стоящий между THEN и ELSE), а <оператор 2> (стоящий после ELSE) будет пропущен.
Если условие не справедливо (ЛОЖЬ), то <оператор 1> игнорируются и выполняются <оператор 2>.

IF - если, THEN - то, ELSE - иначе.

 

Неполная форма оператора выглядит следующим образом:

IF <УСЛОВИЕ> THEN <ОПЕРАТОР>

Если условие справедливо, то программа выполняет тот оператор, который стоит после ключевого слова THEN и дальше руководствуется обычным порядком действий. Если условие не справедливо, то оператор, стоящий после THEN не выполняется, и программа сразу переходит к обычному порядку действий.
Конструкция IF...THEN позволяет в зависимости от справедливости условия либо выполнить оператор, либо пропустить этот оператор.
Условия - в них используются следующие операторы сравнения:

=	равно
<>	не равно
>	больше
<	меньше
>=	больше или равно
<=	меньше или равно

Справа и слева от знака сравнения должны стоять величины, относящиеся к одному типу. В результате сравнения получается логическая величина, имеющее значение ИСТИНА (TRUE) или ЛОЖЬ (FALSE).

Пример:
5<7 - ИСТИНА;
8=12 -ЛОЖЬ (проверяем равно ли 8 12, именно проверяем, а не утверждаем, что 8=12);

При составлении условия можно использовать логические операции: and – логическое умножение, or – логическое сложение, not – отрицание. IF (a<0) and (b<0) THEN …

 

 

Пример: Решение квадратного уравнения.
Решение квадратного уравнения зависит от значения дискриминанта.

 

PROGRAM kvur;

VAR a, b, c, d,x, x1,x2: REAL;

BEGIN

WRITELN ('vvedi a b c');

READLN (a,b,c);

d:=b*b-4*a*c;

IF d<0 THEN WRITELN ('net') ELSE

IF d=0 THEN BEGIN

x:=-b/(2*a); WRITELN ('koren',x)

END

ELSE BEGIN

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

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

WRITELN ('korni',x1, x2);

END;

END.