Подскажите как изменить код

[Nik!ta]

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

var a,x,y: integer;
begin
a:=StrToInt(edt1.Text);
x:=StrToInt(edt2.Text);
y:=StrToInt(edt3.Text);
begin
if ((x<=a)and(x>=-a)) and ((y<=a)and(y>=-a)) then lbl5.Caption :='i?eiaaea?eo' else
lbl5.Caption :='ia i?eiaaea?eo' ;
end;
end;

[Человек_Борща]

А что исправить? багов вроде нет.

[Nik!ta]

Данный код который написан, он определяет принадлежит ли точка квадратной области с координатами (a;a) (a;-a) (-a;-a) (-a; a), а необходимо этот код изменить, чтобы определялось принадлежит ли точка области ромба с такими же координатами.

[Serge_Bliznykov]

ромбов с длиной стороный теоретически бесконечное множество (на практике - конечное, конечно, за счёт округления),
поэтому, без рисунка/графика/координат/характеристик КОНКРЕТНОГО ромба задача решения не имеет.

[Nik!ta]

да что тут конкретного надо)) координаты куда известны. (0;a) (a;0) (0;-a) (-a;0) график соответственно тоже легко начертить. Мне изинственно непонятно как это в коде отразить

[Serge_Bliznykov]

примерно так:

if (x>=-a) and (x<=a)
      and (y>=x-a) and (y<=x+a) and (y>=-x-a) and (y<=-x+a) 
 then lbl5.Caption :='Принадлежит' 
 else  lbl5.Caption :='Не принадлежит';

не проверял.
вроде бы, на мой взгляд, правильно.
скорее всего, не очень оптимально, чувствую, что можно намного короче условие проверки y записать, но с ходу не получилось...

[northener]

<offtop>
Ромб это квадрат повернутый на 45 градусов. Кто бы мог подумать?
</offtop>

[Аватар]

точка области ромба с такими же координатами

Квадрат конечно разновидность ромба, но все таки это просто повернутый на 45 градусов квадрат. И условие упростить можно abs(x)+abs(y)<=a

[Serge_Bliznykov]

И условие упростить можно abs(x)+abs(y)<=a

бинго! вот эту формулу я пытался вывести, чувствовал, что она есть, должна быть, ибо всё симмметрично, но не смог выдумать...

Квадрат конечно разновидность ромба, но все таки это просто повернутый на 45 градусов квадрат.

Ой, не смешите!! ничего, что углы ромба не прямые?

[Аватар]

Ромб (др.-греч. ῥόμβος, лат. rombus «бубен») — это параллелограмм, у которого все стороны равны. Ромб с прямыми углами называется квадратом.

http://ru.wikipedia.org/wiki/%D0%A0%D0%BE%D0%BC%D0%B1

В данном примере углы ромба как раз прямые