точка с координатами X и Y

[igorrapfan]

Дана точка с координатами X и Y. Определить попадает ли она в заштрихованные части области( смотреть на фото). Ответ вывести в виде " Точка с координатами (x,y) попадает в заштрихованные части ( плиз на turbo pascal-e напишите кому не сложно,заранее спасибо)

[BDA]

Нужно составить 4 уравнения прямых, затем выбрать в них вместо знака равенства такой знак, чтобы неравенство задавало нужную полуплоскость. Осталось объединить получившиеся неравенства через операцию логического "И" и выдать ответ. Можно обойтись заданием 2 неравенств, задающих полосы (неравенство должно содержать знак модуля). Покажите свои наработки.

[igorrapfan]

не понимаю как это написать , помогите пожалуйста

[BDA]

Можете составить уравнения прямых?

[igorrapfan]

-1-1.5=х и x-(-0.5)=y
так будет?

[BDA]

Тут прямые параллельны координатным осям, так что не может быть уравнений вида y = kx + a, только x = a или y = b. На рисунке, кстати, не хватает одного числа.

[unpaleness]

Во-первых, на рисунке фигово видно, какие границы у прямоугольника.
Во-вторых, если предположить, что по x он лежит в диапазоне от x1 до x2, по y - от y1 до y2, то условие вхождения точки с координатами (x;y) будет таким:
IF(x>=x1 & x<=x2 & y>=y1 & y<=y2) THEN
*тут всякий вывод*
END
Если правильно помню синтаксис Пасцаля.

[Bugrimov]

Проверяйте... Возможны опечатки

uses crt;
const
  x1 = 1.3;
  x2 = -1;
  y1 = 2;
  y2 = -0.5;
var
  a, b : double;
begin
  writeln;
  writeln(' Введите координаты точки:');
  write(' a = ');
  readln(a);
  write(' b = ');
  readln(b);
  
  if(((a <= x1) and (a >= x2)) and ((b <= y1) and (b >= y2))) then
    writeln(' Точка входит в область!')
  else
    writeln(' Не входит в область.');
end.