[Pascal] Исправить код определения, лежит ли точка внутри данного прямоугольника

[777pro777]

uses crt;
var x1,x2,y1,y2, n1, n2:real;
begin
writeln ('введите кординаты первой точки  ');
      readln (x1,y1);
writeln ('введите вторую точку ');
      readln (x2,y2);
writeln ('введите точку ');
      readln(n1,n2);
      if (n1>=X1) and (n1<=X2) and (n2<=Y1) and (N2>=Y2) then
writeln ('лежит точка') else writeln('нележит точка');
readln;
end.

Как исправить?когда координаты точки водишь x=0 y=0 то пишет не лежит хотя на самом деле лежит (((
задача
Дан прямоугольник, заданный двумя противоположными вершинами (X1, Yl); (Х2, Y2) и точка (X, Y).Определить, лежит ли эта точка внутри данного прямоугольника. как ее решить? я так понимаю мы две точки задаем а третью и четвертую программа сама вычесляе

[Hacker19_90]

какие-нибудь дополнительные свойства прямоугольника есть?
Потому что его стороны могут быть параллельны осям координат. могут не быть и тд и тп

[777pro777]

нет нечего не дано мне б хотя б для параллельных осей

[KobolD]

Сообщение от 777pro777

      if (n1>=X1) and (n1<=X2) and (n2<=Y1) and (N2>=Y2) then

А ты знаки сравнения с Y не перепутал случаем?

[denisbrain]

Сообщение от KobolD

А ты знаки сравнения с Y не перепутал случаем?

если координаты прямоугольника заданы вершинами =>

по аналогии с задачей " лежит ли точка (X) внутри треугольника (ABC)"

Function Dlina(a,b:Tpoint):real;
var x1,y1,x2,y2:real;
begin
x1:=a.x;
y1:=a.y;
x2:=b.x;
y2:=b.y;
   result:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))
end;

Function GetP(a,b,c:Tpoint):real;
var p,r1,r2,r3:real;
begin
 r1:=Dlina(a,b);
 r2:=Dlina(b,c);
 r3:=Dlina(c,a);
 p:=(r1+r2+r3);
 result:=p;
end;

Function GetS(a,b,c:Tpoint):real;
var p,r1,r2,r3:real;
begin
 r1:=Dlina(a,b);
 r2:=Dlina(b,c);
 r3:=Dlina(c,a);
 p:=(r1+r2+r3)/2;
 result:=sqrt(p*(p-r1)*(p-r2)*(p-r3));
end;

Function GetTochka(a,b,c:Tpoint;X:Tpoint):boolean;
begin
   result:=abs(GetS(a,b,c)-(GetS(x,b,c)+GetS(a,x,c)+GetS(a,b,x)))<0.0001;
end;

т.е.
1. находишь S прямоугольника (ABCD)
2. представляем 4 треугольника с вершинами (ABX,BCX,CDX,ADX)
и если точка лежит в приделах прямоугольника то Сумма Площадей всех образованных треугольников будет равна площади прямоугольника (ABCD)

если координаты прямоугольника задаются X1,Y1, X2,Y2 диагональю и стороны параллельны осям координат то условие

x,y - точка 
x1:=min(x1,x2);
y1:=min(y1,y2);
x2:=max(x1,x2);
y2:=max(y1,y2);
if (x>=x1) and (y>=y1) and (x2>=x) and (y2>=y) then

[Serge_Bliznykov]

Сообщение от denisbrain

если координаты прямоугольника заданы вершинами =>

по аналогии с задачей " лежит ли точка (X) внутри треугольника (ABC)"

denisbrain, ОМГ!!!
Вы ещё лучевым методом проверьте, попадает точка в многоугольник или нет!

зачем так сложно то?!!

Сообщение от KobolD

А ты знаки сравнения с Y не перепутал случаем?

+1

исходный код (пост #1) написан верно.

Но надо учитывать, что координаты X1,Y1 и X2, Y2 должны соответствовать коодинатам левого верхнего и нижнего правого углов прямоугольника!

Значит, либо нужно задавать координаты исходных углов согласно требованию X1,Y1 - координаты левого верхнего, X2,Y2 - коорданиты правого нижнего угла.

либо написать условие проверки так:

      if (n1>=Min(X1,X2)) and (n1<=Max(X1,X2)) 
         and (n2>=Min(Y1,Y2)) and (n2<=Max(Y1,Y2)) then // точка лежит внутри прямоугольника