Работа с функциями (Delphi)

[Nathaniel Green]

Даны координаты трех точек, как определить попарно(точки 1 и 2, 2 и 3, 1 и 3), лежат ли они в одном квадранте? Это надо сделать с помощью функции.

[ura_111]

1) Что такое "квадрант"?
2) Что ты уже успел сделать? (Хоть что-нибудь есть?)

[Nathaniel Green]

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

1) Что такое "квадрант"?
2) Что ты уже успел сделать? (Хоть что-нибудь есть?)

1) Квадрант плоскости — любая из 4 областей (углов), на которые плоскость делится двумя взаимно перпендикулярными прямыми, принятыми в качестве осей координат. Проще говоря надо определить лежат ли попарно точки в одной из четвертей координатной плоскости XY.

2)

function P(a,b,c,d:real):string;
begin
if ((a>0) and (b>0) and (c>0) and (d>0)) or ((a<0) and (b>0) and (c<0) and (d>0))
or ((a<0) and (b<0) and (c<0) and (d<0)) or ((a>0) and (b<0) and (c>0) and (d<0))
then begin
p:=' Лежат в одном квадранте';
end else
p:=' Лежат в разных квадрантах';
end;

Проблема в том, что он всегда выводит на else

[Аватар]

if (Sign(x1)=Sign(x2)) and (Sign(y1)=Sign(y2)) then в одном квадранте

Что делать с точками лежащими на координатных осях? Каждая из них в двух квадрантах, а 0,0 так в четырех

[Nathaniel Green]

Сообщение от Аватар

if (Sign(x1)=Sign(x2)) and (Sign(y1)=Sign(y2)) then в одном квадранте

Что делать с точками лежащими на координатных осях? Каждая из них в двух квадрантах, а 0,0 так в четырех

в задании про это ничего не сказано, а так, то пока без идей

[ura_111]

Посмотри на код; ты понимаешь идею?

10.jpg

[Serge_Bliznykov]

проще. при умножении положительное число получается только в случае одинаковости знаков у множителей.
поэтому достаточно просто:

if (x1*x2>0) and (y1*y2>0) then в одном квадранте
else не в одном

или, в виде функции

function isSameQuarter(x1,y1, x2,y2 : integer) : boolean;
begin
  Result := (x1*x2>0) and (y1*y2>0)
end;

[Nathaniel Green]

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

проще. при умножении положительное число получается только в случае одинаковости знаков у множителей.
поэтому достаточно просто:

if (x1*x2>0) and (y1*y2>0) then в одном квадранте
else не в одном

или, в виде функции

function isSameQuarter(x1,y1, x2,y2 : integer) : boolean;
begin
  Result := (x1*x2>0) and (y1*y2>0)
end;

Спасибо, воспользуюсь вашей идеей!