Принадлежит ли точка заштрихованной области - Pascal ABC (13472)
Формулировка задачи:
Помогите разобраться. Я понял как найти всей фигуры но не могу понять как убрать с зоны поиска точки круг.
Решение задачи: «Принадлежит ли точка заштрихованной области»
textual
Листинг программы
var x,y:real;
begin
writeln('Введите координаты точки');
readln(x,y);
if((x<=2)and(y>=-2*x+7)and(y<=-x/7+7))
or((x>2)and(y>=x-2)and(y<=-x/7+7)and(sqr(x-5.5)+sqr(y-3.5)>=2.25))
then write('Принадлежит')else write('Не принадлежит')
end.
Объяснение кода листинга программы
- Создаются две переменные типа real - x и y.
- Выводится сообщение «Введите координаты точки».
- Считываются координаты точки с помощью функции readln.
- Проверяется условие: x <= 2 и y > (-2*x + 7) и (-x/7 + 7) <= y < x - 2 и (-x/7 + 7) >= y. Также проверяется условие: sqr(x-5.5) + sqr(y-3.5) >= 2.25.
- Если хотя бы одно из условий выполняется, то выводится сообщение «Принадлежит», иначе выводится сообщение «Не принадлежит».