356.50K
Category: programmingprogramming

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

1.

МОУ СОШ №73

2.

Пример 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.

Pascal
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.

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 вводится с клавиатуры)
English     Русский Rules