Создайте программу в паскале , которая определяет , принадлежит ли точка с заданными координатами (x,y)заштрихованной области (включая границы)координатной плоскости .

Предыдущий
вопрос Следующий
вопрос

program CheckPointInArea
va
x, y: integer
begi
writeln('Enter the x coordinate:')
readln(x)
writeln('Enter the y coordinate:')
readln(y)
if ((x >= -3) and (x <= 3) and (y >= -3) and (y <= 3)) o
((x >= -1) and (x <= 1) and (y >= -1) and (y <= 1)) the
writeln('The point belongs to the shaded area.'
els
writeln('The point does not belong to the shaded area.')
end.

В данной программе мы задаем координаты точки (x, y) и проверяем, принадлежит ли она заштрихованной области на координатной плоскости (границы области включены). Если точка принадлежит области, программа выводит сообщение "Точка принадлежит заштрихованной области", иначе выводится сообщение "Точка не принадлежит заштрихованной области".