Ветвление в Паскале. Разветвляющийся алгоритм

1.

ВЕТВЛЕНИЕ В ПАСКАЛЕ

2.

Разветвляющийся алгоритм
Алгоритм называется
ветвящимся, если в зависимости
от выполнения условия
совершаются те или иные
действия.

3.

ОРГАНИЗАЦИЯ ВЕТВЛЕНИЙ В ПРОГРАММАХ НА
ПАСКАЛЕ. ОПЕРАТОР IF… THEN... ELSE
Формат оператора:
IF условие THEN оператор 1 ELSE оператор 2;
Правило работы:
1. Проверяется условие.
2. Если условие истинно, то выполняется оператор1
3. Если условие ложно, то выполняется оператор2.

4.

ЛОГИЧЕСКОЕ ВЫРАЖЕНИЕ - это
выражение, которое принимает
значение TRUE(истина) или
FALSE(ложь), и включает в
себя арифметические
выражения, связанные
операциями отношения и
логическими операциями.
ЛОГИЧЕСКИЕ ОПЕРАЦИИ:
NOT - НЕ; AND - И; OR - ИЛИ

5.

Операция отношений
> больше (а>5)
>= больше или равно (a>=b)
< меньше (x<6)
<= меньше или равно (y<=0)
= равно (r=10)
<> неравно (a<>d)

6.

Составной оператор
В условном операторе после слов THEN и ELSE
можно помещать по несколько операторов. В
этом случае их объединяют в СОСТАВНОЙ
оператор, который начинается словом BEGIN и
заканчивается словом END; (на конце не точка, а
точка с запятой!)
Пример:
if x < y then
begin
z:=x;
x:=2*y;
y:=z-2:
end;

7.

Виды ветвлений:
Полная форма
Неполная форма
Выбор

8.

Неполная форма:
Pascal:
Нет
Да
УСЛОВИЕ
if условие then действие;
или
одно или
несколько
действий
if условие then
begin
группа действий;
end;

9.

Полная форма:
Pascal:
Нет
Да
УСЛОВИЕ
if условие then действие1
else действие2;
или
if условие then begin
группа
действий2
группа
действий1
группа действий1;
end
else begin
группа действий2;
end;

10.

Оператор выбора:
Pascal:
case переменная of
список значений 1 : действие 1;
список значений 2 : действие 2;
список значений 3 : действие 3;
………………………………………………………
список значений n : действие n
else действие n+1;
end;

11.

Упростите, если это возможно, и
найдите ошибки в программе:
Program primer;
var x, a, b : integer;
Begin
writlen ( ‘ введите числo x =’ );
write ( x );
if x > 0 then a := a * 2 ; b := b / 2;
if x <= 0 then a := a / 2 ; b := b * 2;
writeln ( ‘ a = ’ , a );
writeln ( ‘ b = ’ , b );
End.

12.

Решение:
Program primer;
var x, a, b : real;
Begin
writeln ( ‘ введите числo x =’ );
read ( x );
if x > 0 then begin a := a * 2 ; b := b / 2;
end
else begin a := a / 2 ; b := b * 2; end;
writeln ( ‘ a = ’ , a );
writeln ( ‘ b = ’ , b );
End.