(Паскаль) Написать задачу,определяющую принадлежность точки А(хА,уА) квадратной области...

Question

(Паскаль)
Написать задачу,определяющую принадлежность точки А(хА,уА) квадратной области на координатной плоскости ограниченной прямыми:у1=а,у2=b,x1=c,x2=d
( 6 переменных a b c d yA xA и решается через if и проверку большого кол-во условий )

Очень нужно!Буду благодарен,если поможете!

Answer 1

Var a,b,c,d,x,y: real;
begin
  write('задайте a b c d через пробел:  ');
  readln(a,b,c,d);
  write('координаты точки x y через пробел: ');
  readln(x,y);
  if a>b then swap(a,b);
  if c>d then swap(c,d);
  if ((y>=a) and (y<=b) and (x>=c) and (x<=d)) then<br>  writeln('точка принадлежит области')
  else writeln('точка не принадлежит области');
end.
  
задайте a b c d через пробел:  1 2 3 4
координаты точки x y через пробел: 3.5 1.5
точка принадлежит области

задайте a b c d через пробел:  1 2 3 4
координаты точки x y через пробел: 2 2
точка не принадлежит области