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

условного оператора:
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

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.

возраст человека и определить, подходит ли он для данной компании

(вывести ответ «подходит» или «не подходит»).

var voz:integer;
begin
writeln ('введите возраст сотрудника');
readln (voz);
if (voz>=25)and(voz<=40) then writeln ('podhodit')
else writeln ('ne podhodit')
end.

деления)
var otvet:boolean;
begin
writeln('загадай число от 1 до 4');
writeln('это число

больше 2?');
readln(otvet);
if otvet=true then
begin
writeln('больше трех?');
readln(otvet);
if otvet=true then writeln('4') else writeln('3')
end
else
begin
writeln('меньше двух?');
readln(otvet);
if otvet=true then writeln('1') else writeln('2')
end
end.

с заданными сторонами?

Треугольник существует только тогда, когда сумма любых

двух его сторон больше третьей.

var a,b,c:byte;
begin
writeln('введите стороны треугольника');
readln(a,b,c);
if (a+b>c)and(a+c>b)and(c+b>a) then writeln ('существует') else writeln('no')
end.

readln (n);
case n of

1..4: writeln ('Младшие классы.');
5..8: writeln ('Средняя школа.');
9,11: writeln ('Старшие классы. Выпускной.');
10: writeln ('Старшие классы.');
else writeln ('Error')
end;
end.

Оператор CASE

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

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

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