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

Разветвляющиеся алгоритмы на языке Паскаль Кондрина А. В. учитель информатики и ИКТ

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Задание: по известной блок-схеме cоставить программу на языке Паскаль начало Ввод x да X-1<0 y=4 нет y=3 Вывод y конец Program z 1; 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.

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