ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ НАЧАЛА ПРОГРАММИРОВАНИЯ

условного оператора:
if then else
Неполная форма условного оператора:
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

a, 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.

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

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

!

('Решение линейного уравнения');
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.

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

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

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

оценку 5: Напишите программу к задаче
Даны три натуральных числа. Напишите программу, определяющую, существует ли треугольник с такими длинами сторон. Если такой треугольник существует, то определите его тип (равносторонний, равнобедренный, разносторонний).

Выполнить программу для исходных данных:

1) a=1, b = 2, c = 1

2) a=2, b = 2, c = 2

3) a=20, b = 20, c = 30

4) a=3, b = 4, c = 5

На оценку 3: составьте опорный конспект презентации
На оценку 4 : запишите голосовой ответ на вопросы:

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