Программирование разветвляющихся алгоритмов. Условный оператор. Составной

ветвления
НАЧАЛА ПРОГРАММИРОВАНИЯ
Урок №27
Не забудьте записать в тетради число, классная работа,

тема урока

проверки условия («да» или «нет») предусмотрен выбор одной из двух

последовательностей действий (ветвей).
Алгоритмы, в основе которых лежит структура «ветвление», называют разветвляющимися.

В программе ветвление реализуется условным оператором.

форма







if then

<оператор_1> else <оператор_2>;

Краткая форма




if <условие> then <оператор>;

Словесно данный алгоритм можно сформулировать так:
Если условие истинно, то выполняется Действие1, если условие ложно, то выполняется Действие 2

Не забудьте делать записи в тетради

в деталях!
Константы, переменные, выражения, связанные между собой знаками операций отношения

=, <> (не равно), >(больше), <(меньше), >=(больше или равно), <=(меньше или равно)

Теперь разберемся в деталях!

Простые логические выражения, связанные логическими операциями
OR – дизъюнкция, ИЛИ, логическое сложение
AND – конъюнкция, И, логическое умножение
NOT – отрицание, НЕ, логическое отрицание
Например, NOT (Условие1)
(Условие 1) OR (Условие 2)
(Условие 1) AND (Условие 2)

Оператор (любой из известных простых операторов)

Ввода

Вывода

Присвоения

Теперь разберемся в деталях!

Например,
readln(A);

Например,
writeln(‘D=‘, D);

Например,
Y:=A+5;

Не забудьте записать в тетрадь

var

x, a, b: real;
begin
writeln (‘Точка принадлежит отрезку?');
write ('Введите а, b>>');
readln (a, b);
write ('Введите x>>');
readln (x);
if (x>=a) and (x<=b)
then writeln (‘Принадлежит отрезку')
else writeln (‘Не принадлежит отрезку’);
readln;
еnd.

Задача 1. Принадлежит ли точка х отрезку [a, b]?
Разберемся в условии задачи:
Что дано? ОТВЕТ: х, a, b
В каком виде нужно получить результат? ОТВЕТ: Да (принадлежит) или Нет( не принадлежит)
Для решения нужно проверить условие a <= x <= b (условие сложное!)

начало

Задача решена с использованием полной формы

integer;
begin
writeln ('Нахождение max(A, B, C)’ );
write ('Введите а,

b, с>>');
readln (a, b, c);
y:=a;
if (b>y)
then y:=b;
if (c>y)
then y:=c;
writeln ('y=', y);
readln;
end.

Примеры решения задач (записать в тетрадь)

Задача 2. Даны три величины A, B, C. Переменной У присвоить значение большей из них.
Разберемся в условии задачи:
Понятно, что значения нужно сравнить. Предположим, что наибольшим является значение А – сохраним его в переменной У. Затем сравним с У переменную В. Если В больше по значению – сохрани его в У. Аналогично поступим с переменной С. Выводим значение У.

начало

А, В, С

Y

конец

Задача решена с использованием двух кратких форм условного оператора

можно использовать только один оператор.
Если в условном операторе после

then или после else нужно выполнить несколько операторов, то используют составной оператор
begin
список операторов через ;
end

integer;
begin
write ('Введите а, b, с>>');
readln (a,

b, c);
if (A>=0) and (B>=0) and (C>=0) and (A>B+C) and (B>A+C) and(C>B+A)
then
begin
P:=a+b+c;
writeln (‘Периметр -’, P);
end
else
writeln (‘Данные не корректны');
readln;
end.

да

нет

Примеры решения задач (записать в тетрадь)

Задача 3. Даны три величины. Можно ли построить треугольник с заданными сторонами. Если можно, то найти A, B, C его периметр, иначе вывести сообщение «Данные не корректны».
Разберемся в условии задачи:
Треугольник можно построить если величины положительны, т.е. A, B, C>=0 и если длина каждой из сторон меньше суммы длин двух других. Таким образом, нужно проверить условие (A>=0) and (B>=0) and (C>=0) and (A>B+C) and (B>A+C) and(C>B+A)

А, В, С

конец

P:=A+B+C

P

Данные не корректны

(A>=0) and (B>=0) and (C>=0) and (A>B+C) and (B>A+C) and (C>B+A)

then

if <условие2>
then <оператор1>
else <оператор2>

else <оператор3>;

else всегда относится к ближайшему оператору if

!

b, x: real;
begin
writeln ('Решение линейного уравнения');
write ('Введите коэффициенты

a , b>>');
readln (a, b);
if a<>0
then
begin
x:=-b/a;
writeln ('Корень уравнения x=', x:9:3)
end
else
if b<>0 then writeln ('Корней нет')
else writeln ('x – любое число’);
readln;
end.

Задача 4. Cоставим алгоритм решения линейного уравнения ax+b=0 (переменные вещественные).
!!!Алгоритм решения задачи представлен на блок-схеме. Какие элементы в блок-схеме отсутствуют? Добавьте их!

x:=-b/a

a, b, c
d:=b*b-4*a*c
d < 0
да
Вывод
«Корней нет»
нет
d:= 0
да
x:=-b/2/a
Вывод
«Корень уравнения х=», х
нет
х2:=(-b-sqrt(d))/2/a
Задача

5. Cоставим алгоритм решения квадратного уравнения ax2+bx+c=0 (переменные вещественные).

x2:=(-b-sqrt(d))/2/a;
writeln ('Корни уравнения:');

writeln ('x1=', x1:9:3);
writeln ('x2=', x2:9:3)
end

begin
x:=-b/2/a;
writeln ('Корень уравнения x=', x:9:3)
end

program Z5;
var a, b, c: real;
var d: real;
var x, x1, x2: real;
begin
writeln ('Решение квадратного уравнения');
write ('Введите коэффициенты a, b, c >>');
readln (a, b, c);
d:=b*b-4*a*c;
if d<0 then writeln ('Корней нет')
else
if d=0 then

else

end.

оператор:
if
then
else ;
Для

записи неполных ветвлений используется неполный условный оператор:
if <условие>
then <оператор>;

Если при некотором условии требуется выполнить несколько операторов, то их объединяют в один составной оператор, имеющий вид:
begin
<список операторов>;
end

(оформляются с тетради: число, домашняя работа, фото конспекта классной и

домашней работы в личку или на e.l.meznikova@mail.ru)

2.

тетради: число, домашняя работа, фото конспекта классной и домашней работы

в личку или на e.l.meznikova@mail.ru)

 

begin end
Полная форма
Краткая форма
Составной оператор

Вы увидите, что все не так сложно