Простенькая задачка

[Philipp93]

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

Пусть первый прямоугольник задан парой точек (-5;20) и (-20;0)
а второй – парой (-5;10) и (-35;10)
Напишите пожалуйста программу, которая для заданных прямоугольников определит, принадлежит ли вводимая точка хотя бы одному из прямоугольников, но не обоим одновременно.

Программа должна печатать true в случае положительного ответа и false в противном случае.

[Stilet]

Кажется примерно так:

program Project1;

function perf(ax,ay,bx,bx,x,y:double):Boolean;
begin
  result:=
   (x>=ax) and (x<=bx) and
   (y>=ay) and (y<=by)
  ;
end;

var x,y:double;
begin
  x:=0; y:=0;
  if perf(-5,20,-20,0,x,y) xor perf(-5,10,-35,10,x,y) then  write('Да')
  else write('Нет');
  reaadln;
end.

Но могу ошибаться - не проверял.

[Philipp93]

К сожаленью на выход автоматически выходит Нет. Где-то недоработка

[Stilet]

Бывает )
Пройдись отладкой и посмотри где я допустил неточность.
Скорее всего в xor.

[Serge_Bliznykov]

я бы рекомендовал такой код:

program Project1;

function perf(ax,ay,bx,by,x,y:double):Boolean;
begin
  result := true;
  if ax<bx then
    result:= result and (x>=ax) and (x<=bx)
  else
    result:= result and (x>=bx) and (x<=ax);
  if ay<by then
    result:= result and (y>=ay) and (y<=by)
  else
    result:= result and (y>=by) and (y<=ay);
end;

var x,y:double;
 pr1, pr2 : boolean;
begin
  x:=-5; y:=2;
  pr1 := perf(-5,20,-20,0,x,y);
  pr2 := perf(-5,10,-35,10,x,y);
  Write('Первому прямоугольнику точка ',x,' ',y);
  if pr1 then WriteLn(' принадлежит') else WriteLn(' не принадлежит');
  Write('Второму прямоугольнику точка ',x,' ',y);
  if pr2 then WriteLn(' принадлежит') else WriteLn(' не принадлежит');
  Write('Ответ на задачу: ');
  if pr1 xor pr2  then  writeln('Да')
  else writeln('Нет');
{  readln;}
end.

ну и ещё. рекомендую взять листик, набросать на нём координаты прямоугольников.
Убедиться, что точка 0,0 не принадлежит ни одному из прямоугольников.
Попробовать взять другую точку, например, (-5, 2)

а второй – парой (-5;10) и (-35;10)

кстати, прямоугольник, у которого верхняя вершина расположена в 10, нижняя расположена в 10 очень невысокий