Попробую что-то упорядочить...
Код:
if ((a=b) and (c=d) and (a=d)) then
begin//2
if bd<>ac then
edit9.text:=('Точки образуют ромб')
else
edit9.text:=('Точки образуют квадрат');
end;//2
if ((b<>d) or (a<>c)) then
begin//3
if ((x3-x2)/(x4-x1)=(y3-y2)/(y4-y1))or((x1-x2)/(x4-x3)=(y1-y2)/(y4-y3)) then
edit9.text:=('Точки образуют трапецию');
if ((y3-y2=0) and (y4-y1=0) and (b<>d)) then
edit9.text:=('Точки образуют трапецию');
if ((y1-y2=0) and (y4-y3=0) and (a<>c)) then
edit9.text:=('Точки образуют трапецию');
end//3
else
edit9.Text:=('Четырехугольник не является квадратом,ромбом или трапецией')
end;//1 |