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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

17 Складіть программу, яка обчислює значения y, для будь-якого дійсного X, що введено з клавіатури.

18

19 uses crt; Var x,y:real; begin writeln('x='); readln(x); if x<5 then y:=(4*sqr(x)+1)/(x-5) else y:=3*sqr(x)-2; Writeln(y:1:2); end.