Similar presentations:
Разветвляющиеся алгоритмы
1.
МОУ СОШ №732.
Пример 1.если будут билеты в кино,то
• я пойду смотреть
фильм,
• иначе я пойду к
подруге.
ПОЛНАЯ КОМАНДА ВЕТВЛЕНИЯ
Пример 2.
Если магазин будет открыт, то
•я зайду и куплю хлеб.
НЕПОЛНАЯ КОМАНДА ВЕТВЛЕНИЯ
МОУ СОШ №73
3.
КОМАНДА ВЕТВЛЕНИЯНЕПОЛНАЯ
ПОЛНАЯ
• Команда, в которой та или иная
серия команд выполняется после
проверки условия.
МОУ СОШ №73
4.
НЕПОЛНАЯ КОМАНДА ВЕТВЛЕНИЯНЕТ
УСЛОВИЕ
ДА
IF <условие>
THEN <оператор> ;
СЕРИЯ
КОМАНД
IF <условие>
THEN begin <опер1>; <опер1>; end ;
МОУ СОШ №73
5.
ПОЛНАЯ КОМАНДА ВЕТВЛЕНИЯНЕТ
УСЛОВИЕ
ДА
IF <условие>
THEN <оператор>
ELSE <оператор>;
СЕРИЯ
СЕРИЯ
КОМАНД 2
КОМАНД 1
IF <условие>
THEN begin <опер1>; <опер1>; end
ELSE begin <опер1>; <опер1>; end;
МОУ СОШ №73
6.
Даны два числа A и В. Найти большее из них.Исходные данные: А и В.
Результат: MAX - большее из этих чисел.
Чтобы решить эту задачу, машина должна выполнить один
из операторов : MAX= А, если А>B или MAX=B, если B>A. Если
A=B , то можно выбрать любой из операторов.
Запишем на алгоритмическом
языке:
ЕСЛИ A>B
ТО MAX=A
ИНАЧЕ MAX=B
ВСЕ
7.
НАЧАЛОБЛОК - СХЕМА
Оформ. экрана
Ввод А, В
НЕТ
А>B
MAX =B
ДА
MAX=A
Печать MAX
КОНЕЦ
8.
PascalProgram 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.
9.
КОМАНДА «ВЫБОР»PROGRAM TASK;
USES CRT;
VAR N:INTEGER;
BEGIN
WRITE(‘ВВЕДИТЕ НОМЕР ДНЯ НЕДЕЛИ=’);
READLN(N);
CASE <ВЫРАЖЕНИЕ> OF
CASE N OF
константа: <КОМАНДА 1>;
1:WRITELN(‘ПОНЕДЕЛЬНИК’);
константа: <КОМАНДА 2>;
2:WRITELN(‘ВТОРНИК’);
-||- ... ... -||3:WRITELN(‘СРЕДА’);
[ ELSE <КОМАНДА N>;]
4:WRITELN(‘ЧЕТВЕРГ’);
END;
5:WRITELN(‘ПЯТНИЦА’);
6:WRITELN(‘СУББОТА’);
7:WRITELN(‘ВОСКРЕСЕНЬЕ’);
ELSE
WRITELN(‘НЕТ ТАКОГО’);
END; {КОНЕЦ ВЫБОРА}
END.
10.
Составить программу, вычисляющую значение y из системы(x вводится с клавиатуры)