Программирование разветвляющихся алгоритмов

Линейные алгоритмы
Линейным называется алгоритм, в котором
используется всего одна конструкция –
следование. Он состоит из операторов,
записанных последовательно в порядке их исполнения.

Типы данных
в языке Pascal
Типы данных
Числовые:
byte;
integer;
real.
Символьный:
char.
Строковый:
string.
Логический:
boolean.

Программирование разветвляющихся
алгоритмов
Определение разветвляющегося алгоритма.
Простой и составной условные операторы.
1
3
Запись разветвляющегося алгоритма в языке Pascal.
2

Ветвление

Разветвляющиеся алгоритмы
В разветвляющихся алгоритмах, помимо следования,
используется конструкция ветвления.
Ветвление – это алгоритмическая конструкция, в
которой в зависимости от некоторого условия
происходит исполнение одной из двух
последовательностей команд (ветвей).

Блок-схема
разветвляющегося алгоритма
Условие
Ветвь 1
Ветвь 2
Да
Нет

Запись разветвляющегося
алгоритма в языке Pascal
Формы записи
условного оператора
Сокращённая:
if
<условие>
then
<оператор 1>
;
Полная:
else
<оператор 2>
if
<условие>
then
<оператор 1>
;

Задача
Найти наибольшее из двух чисел, введённых пользователем.
Если числа равны между собой, вывести любое из них.
Обозначим:
a и b – числа введённые пользователем.
Начало
a
a > b
a, b
b
Конец
Да
Нет
program max;
var
a, b: real;
begin
writeln ('Программа нахождения большего из 2 чисел. Введите 2 числа.');
readln (a, b);
if a>b
then write (a, ' - наиболешее из 2 чисел.')
else write (b, ' - наибольшее из 2 чисел.');
end.
Исходный код программы

Составной условный оператор
If <условие>
then
else
begin
<оператор 1>;
<оператор 2>;
…
end
begin <оператор 3>;
<оператор 4>;
…
end;
if <условие 2>
then <оператор 1>
else <оператор 2>;
Вложенный условный оператор

Задача
Три отрезка заданы своими длинами.
Определить, образуют ли эти отрезки треугольник,
и если образуют, то какой:
остроугольный, прямоугольный или тупоугольный.
a
b
c
с < a + b

Задача
Три отрезка заданы своими длинами.
Определить, образуют ли эти отрезки треугольник,
и если образуют, то какой:
остроугольный, прямоугольный или тупоугольный.
Прямоугольный треугольник
= 90º
a
b
c
с2 = a2 + b2
Тупоугольный
треугольник
> 90º
a
b
c
с2 > a2 + b2
Остроугольный
треугольник
< 90º
a
b
c
с2 < a2 + b2

Блок-схема алгоритма:
Начало
a, b, с
a > b
a > c
b > c
p:=с
c:=a
a:=p
p:=с
c:=b
b:=p
Да
Да
Да
Нет
Нет
Нет

Блок-схема алгоритма:
c < a + b
c2 = a2 + b2
c2 > a2 + b2
Заданные отрезки образуют прямоугольный треугольник
Заданные отрезки образуют тупоугольный треугольник
Заданные отрезки образуют остроугольный треугольник
Заданные отрезки не образуют треугольник
Конец
Да
Да
Да
Нет
Нет
Нет

Написание программы
program treugolnik;
var
a, b, c, p: real;
begin
writeln ('Программа проверки того, образуют ли 3 заданных отрезка треугольник. Введите длины отрезков.');
readln (a, b, c);
if a>b
then if a>c
then begin
p:=c;
c:=a;
a:=p;
end
else if b>c
then begin
p:=c;
c:=b;
b:=p;
end;
if c
then if sqr(c)=sqr(a)+sqr(b)
then write ('Заданные отрезки образуют прямоугольный треугольник.')
else if sqr(c)>sqr(a)+sqr(b)
then write ('Заданные отрезки образуют тупоугольный треугольник.')
else write ('Заданные отрезки образуют остроугольный треугольник.')
else write ('Заданные отрезки не образуют треугольник.');
end.
Исходный код программы

Программирование разветвляющихся
алгоритмов.
Простой и составной условные операторы
В разветвляющемся алгоритме используются ветвления. Ветвление – это
алгоритмическая конструкция, в которой при определённом условии выполняется
одна из двух последовательностей действий или ветвей.
Запись условного оператора:
if <условие>
then <оператор 1>
else <оператор 2>;
Краткая форма записи условного оператора:
if <условие>
then <оператор 1>;