Разветвляющиеся алгоритмы презентация

если будут билеты в кино,то
я пойду смотреть фильм,
иначе я пойду к подруге.
Пример 1.
Пример 2.
Если магазин будет открыт, то
я зайду и куплю хлеб.
ПОЛНАЯ КОМАНДА ВЕТВЛЕНИЯ
НЕПОЛНАЯ КОМАНДА ВЕТВЛЕНИЯ
МОУ СОШ №73

КОМАНДА ВЕТВЛЕНИЯ
Команда, в которой та или иная серия команд выполняется после проверки условия.
МОУ СОШ №73
ПОЛНАЯ
НЕПОЛНАЯ

УСЛОВИЕ
НЕПОЛНАЯ КОМАНДА ВЕТВЛЕНИЯ
ДА
НЕТ
СЕРИЯ
КОМАНД
МОУ СОШ №73
блок-схема
Pascal
IF <условие>
THEN <оператор> ;
IF <условие>
THEN begin <опер1>; <опер1>; end ;

УСЛОВИЕ
ПОЛНАЯ КОМАНДА ВЕТВЛЕНИЯ
ДА
НЕТ
СЕРИЯ
КОМАНД 2
СЕРИЯ
КОМАНД 1
МОУ СОШ №73
блок-схема
Pascal
IF <условие>
THEN <оператор>
ELSE <оператор>;
IF <условие>
THEN begin <опер1>; <опер1>; end
ELSE begin <опер1>; <опер1>; end;

РЕШИМ ЗАДАЧУ.
Даны два числа A и В. Найти большее из них.
Исходные данные: А и В.
Результат: MAX - большее из этих чисел.
Чтобы решить эту задачу, машина должна выполнить один из операторов : MAX= А, если А>B или MAX=B, если B>A. Если A=B , то можно выбрать любой из операторов.
Запишем на алгоритмическом языке:
ЕСЛИ A>B
ТО MAX=A
ИНАЧЕ MAX=B
ВСЕ

БЛОК - СХЕМА
НАЧАЛО
Оформ. экрана
Ввод А, В
А > B
MAX =B
MAX=A
Печать MAX
КОНЕЦ
ДА
НЕТ

Program task;
Uses Crt;
Var
a,b,max:integer;
BEGIN
Writeln(‘Составил…’);
Writeln(‘max из 2 чисел’);
Write(‘Введите 2 числа’);
Read(a,b);
If a>=b then max:=a else max:=b;
Write(‘max=’,max);
END.
Pascal

PROGRAM TASK;
USES CRT;
VAR N:INTEGER;
BEGIN
WRITE(‘ВВЕДИТЕ НОМЕР ДНЯ НЕДЕЛИ=’);
READLN(N);
CASE N OF
1:WRITELN(‘ПОНЕДЕЛЬНИК’); 2:WRITELN(‘ВТОРНИК’);
3:WRITELN(‘СРЕДА’);
4:WRITELN(‘ЧЕТВЕРГ’);
5:WRITELN(‘ПЯТНИЦА’);
6:WRITELN(‘СУББОТА’);
7:WRITELN(‘ВОСКРЕСЕНЬЕ’);
ELSE
WRITELN(‘НЕТ ТАКОГО’);
END; {КОНЕЦ ВЫБОРА}
END.
CASE <ВЫРАЖЕНИЕ> OF
константа: <КОМАНДА 1>;
константа: <КОМАНДА 2>;
-||- ... ... -||-
[ ELSE <КОМАНДА N>;]
END;
КОМАНДА «ВЫБОР»