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

[qpuTuJlb]

Даны целочисленные координаты трех вершин прямоугольника, стороны которого параллельны координатным осям. Найти координаты его четвертой вершины.
Вот код но все время получается ответ x4=0 y4=0,почему так?

var
x1,x2,x3,x4,y1,y2,y3,y4:integer;
begin
x1:=strtoint(Edit8.Text);
x2:=strtoint(Edit9.Text);
x3:=strtoint(Edit10.Text);
y1:=strtoint(Edit11.Text);
y2:=strtoint(Edit12.Text);
y3:=strtoint(Edit13.Text);
if (x1=x2) then x4:=x3;
if (x3=x2) then x4:=x1;
if (x1=x3) then x4:=x2;
if (y1=y2) then y4:=y3;
if (y3=y2) then y4:=y1;
if (y1=y3) then y4:=y2;
Showmessage('Координаты вершины x4='+inttostr(x4)+' y4='+inttostr(y4));
end;

[Stilet]

Может стоит else для каждого IF кроме последнего ставить?

[qpuTuJlb]

Также по 0, делфи выбивает Warning что переменные x4 и y4 не объявлены,но как их объявить если их надо найти?

[Stilet]

По-моему у тебя алгоритм вообще не подходит...

[evg_m]

сделай это

s:=format('A=(%d, %d)'#13'B=(%d,%d)'#13#10'C=(%d,%d)'#13#10'D=(%d,%d)',[x1,y1, x2,y2, x3,y4, x4,y4] );
Showmessage(s);

и проанализируй соответствие ввода и результатов.

Использование неинформативных имен (Edit8,...Edit8, приводит к тому при вводе мы полагаем одно соответствие, а при предбразовании подразумевали совсем другое соответствие.

то что на рисунке получено на вашем алгоритме!

но лучше сделать так и все станет ясно
if (x1=x2) then x4:=x3
else if (x3=x2) then x4:=x1
else if (x1=x3) then x4:=x2
else Showmessage('Вы уверены что ввели правильные данные!';

[BDA]

Не уверен, проверьте:

x4:=x1 xor x2 xor x3;
y4:=y1 xor y2 xor y3;