Реферат: Ветвление в Паскале

Сложное условие

После слова IF допускается:

конъюнкция условий (условия связываются при помощи логической операции and),

дизъюнкция условий (условия связываются при помощи логической операции or);

инверсия условий (отрицание условия not)

Примеры:

Выяснить, принадлежит ли точка с координатами (x, y) кольцу с центром в точке (0, 0), внешним радиусом r1 и внутренним радиусом r2

program PRcir;

var x, y, r1, r2: real;

begin

write ('Введите координаты точки: ');

read (x, y);

writeln ('Введите радиусы r1, r2:: ');

read (r1, r2);

if (sqrt(sqr(x)+sqr(y))<r1) and (sqrt(sqr(x)+sqr(y))>r2) then

writeln ('Точка принадлежит кольцу');

else writeln ('Точка не принадлежит кольцу');

end.