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

оператора:
if <условие> then <оператор_1> else <оператор_2>

Неполная форма условного оператора:
if <условие> then <оператор>

Операции
отношений

Логические
операции

Простые

Сложные

Условия – логические выражения

!

('Определение принадлежности точки отрезку');
write ('Введите а, b>>');
readln (a, b);
write ('Введите x>>');
readln (x);
if (x>=a) and (x<=b) then
writeln ('Точка принадлежит отрезку')
else
writeln ('Точка не принадлежит отрезку')
еnd.

writeln ('Нахождение наибольшей из трёх величин');
write ('Введите а, b, с>>');
readln (a, b, c);
y:=a;
if (b>y) then y:=b;
if (c>y) then y:=c;
writeln ('y=', y)
end.

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

Если в условном операторе после then или после else
нужно выполнить несколько операторов, то
используют составной оператор – конструкцию вида:
begin <последовательность операторов> end

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

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

!

b, c

d:=b*b-4*a*c

d < 0

да

Вывод
«Корней нет»

нет

d = 0

да

x:=-b/2/a

Вывод
«Корень уравнения х=», х

нет

х2:=(-b-sqrt(d))/2/a

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 n_11;
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.

линейного уравнения');
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 – любое число');

end.

<условие> then <оператор_1> else <оператор_2>
Для записи неполных ветвлений используется неполный условный оператор:
if <условие> then <оператор>
Если при некотором условии требуется выполнить определённую последовательных операторов, то их объединяют в один составной оператор, имеющий вид:
begin <последовательность операторов> end

ветвление?

2. Является ли условным оператором последовательность символов?
а) if xб) if x>=y then x:=0; y:=0 else write (z)
в) if x

3. Что такое составной оператор? Для чего он используется в условном операторе?

then c:=1;
if a>b then d:=2;
if a<=b then c:=3;
if a<=b then d:=4

запись которого читается одинаково слева направо и справа налево.

а) есть ли среди цифр заданного целого трёхзначного числа одинаковые;

5. Дано трёхзначное число. Напишите программу, которая определяет:

Напишите программу, определяющую, которая из точек находится ближе к началу координат.

ли треугольник с такими длинами сторон.
Если такой треугольник существует, то определите его тип (равносторонний, равнобедренный, разносторонний).

спартакиады.
Напишите программу, выбирающую и выводящую возраст самого младшего призёра.

на прямой y = kx + l, над ней или под ней;

и y, если x больше y.

else if a>5 then c:=2
else c:=3
Какое значение имеет переменная а, если в результате выполнения условного оператора переменной с присваивается значение 3?

x=0
1 при x>0

y =

31 января 2011 года приходится на понедельник. Какие значения должны быть присвоены литерной переменной y в алгоритме, определяющем день недели для любого числа (chislo) января 2011 года?
chislo:= chislo mod 7
если chislo=3 то у:='…‘
если chislo=4 то у:='…‘
если chislo=5 то у:='…‘
если chislo=6 то у:='…‘
если chislo=0 то у:='…‘
если chislo=1 то у:='…‘
если chislo=2 то у:='…‘

из которых не превосходит 8.
Напишите программу, которая по введённым координатам двух полей (k, l) и (m, n) определяет, являются ли эти поля полями одного цвета.

100 некоторое целое число а (а - случайное число, меньшее 100).
Ответ пользователя проверяется и комментируется.

<последовательность операторов> end

Полная форма

Неполная форма

Составной оператор