Разветвляющиеся алгоритмы на языке Паскаль

1.

Разветвляющиеся
алгоритмы на языке
Паскаль

2.

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

3.

Формы ветвления
Полная
Неполная

4.

ПОЛНАЯ ФОРМА
ВЕТВЛЕНИЯ
НА АЛГОРИТМИЧЕСКОМ
ЯЗЫКЕ
если
условие
то
серия команд 1
иначе серия команд 2
конец ветвления

5.

НЕПОЛНАЯ ФОРМА
ВЕТВЛЕНИЯ
НА АЛГОРИТМИЧЕСКОМ
ЯЗЫКЕ
если
условие
то
серия команд 1
конец ветвления

6.

Блок-схема
полного ветвления
вход
да
выход
вход
нет
да
серия 2
серия 1
условие
серия 1
неполного ветвления
условие
выход
нет

7.

Пример: Как проверить арбуз на спелость?
начало
бросить арбуз в воду
да
арбуз
всплыл?
он не спелый
нет
он спелый
достать арбуз из воды
конец

8.

Пример: осенью, идя в школу, как вы
определите брать вам с собой зонт
или нет?
начало
подойдем к окну
посмотрим в окно
да
идет
дождь?
взять зонт
идти в школу
конец
нет

9.

Задача 1: в блок – схеме алгоритма
вычисления значения функции
4, если x 1 0 ; заполните пустые блоки.
y
3, если x 1 0 .
начало
Ввод
x
да
X-1<0
y=4
нет
y=3
Вывод
y
конец

10.

X=-5
1 Ввод x
начало
1
3
да
2
Ввод
x
X-1<0
y=4
y=3
4 Вывод
y
конец
2
X-1<0 -5-1<0,да
3
Y=4
4
нет
-5
Вывод
y
4

11.

X=5
начало
1
да
2
нет
3
конец
5
2
X-1<0
5-1<0, нет
4
X-1<0
4 Вывод
y
Ввод x
3
Ввод
x
y=4
1
y=3
Y=3
Вывод
y
3

12.

ПОЛНАЯ ФОРМА
ВЕТВЛЕНИЯ
НА АЛГОРИТМИЧЕСКОМ
ЯЗЫКЕ
если
условие
то
серия команд 1
иначе серия команд 2
конец ветвления
НА ЯЗЫКЕ ПАСКАЛЬ

13.

ПОЛНАЯ ФОРМА
ВЕТВЛЕНИЯ
НА АЛГОРИТМИЧЕСКОМ
ЯЗЫКЕ
Если
условие
то
серия команд 1
иначе серия команд 2
конец ветвления
НА ЯЗЫКЕ ПАСКАЛЬ
IF <условие>
then <серия команд 1>
else <серия команд 2>;

14.

НЕПОЛНАЯ ФОРМА
ВЕТВЛЕНИЯ
НА АЛГОРИТМИЧЕСКОМ
ЯЗЫКЕ
если
условие
то
серия команд 1
конец ветвления
НА ЯЗЫКЕ ПАСКАЛЬ

15.

НЕПОЛНАЯ ФОРМА
ВЕТВЛЕНИЯ
НА АЛГОРИТМИЧЕСКОМ
ЯЗЫКЕ
Если
условие
то
серия команд 1
конец ветвления
НА ЯЗЫКЕ ПАСКАЛЬ
IF <условие>
then <серия команд 1>;

16.

Операции отношения:
< - меньше
> - больше
<= - меньше или равно
>= - больше или равно
<> - не равно
= - равно

17.

Задание: по известной блок-схеме
cоставить программу на языке Паскаль
начало
Ввод
x
да
X-1<0
y=4
нет
y=3
Вывод
y
конец
Program z1;
Var Y: Integer;
X: Real;
Begin
Write( ’ vvedi x= ’ );
Read ( x);
If x-1<0 then
y:=4
else y:=3;
Write ( ’ y= ’ , y );
Readln;
End.

18.

Задание :
• выполните составленную
программу в среде
программирования.