Нужно написать программу на языке Паскаль. У меня есть два действительных числа x и y. Я должен определить, принадлежит

Название: Проверка принадлежности точки заштрихованной области на рисунке

Пояснение: Программа на языке Паскаль поможет определить, принадлежит ли точка с координатами (x, y) заштрихованной области на рисунке. Для этого необходимо использовать условные операторы и проверить соответствие координат заданным условиям области. Заштрихованная область может быть, например, ограничена двумя прямыми, графиком функции или геометрической фигурой.

Доп. материал:

pascal

Program CheckPointBelonging;



var

  x, y: real;

  

begin

  writeln("Введите координаты точки (x, y): ");

  readln(x, y);

  

  if (x >= 0) and (y >= 0) then

  begin

    if (x + y <= 1) then

      writeln("Точка принадлежит заштрихованной области")

    else

      writeln("Точка не принадлежит заштрихованной области");

  end

  else

    writeln("Точка не принадлежит заштрихованной области");

  

end.

Совет: Для понимания условий области важно представлять графическое изображение или описание заштрихованной области. Нарисуйте рисунок или используйте графический редактор, чтобы лучше представить себе местоположение точек.

Дополнительное упражнение: Напишите программу на языке Паскаль, которая будет проверять принадлежность точки (x, y) заштрихованной области, ограниченной прямыми y = 2x и y = -2x.