Задача "квадрат"

[hottab1]

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

[VIK_aka_TOR]

окай... кидай твои наработки, домыслы... будем ПОМОГАТЬ ...

[hottab1]

Ну если честно у меня даже идей нету поэтом и обратился к Вам)
Мне кажется здесь нужна какая то формула для нахождения

[Mad_Cat]

var
x1,y1,x2,y2:integer;
x3,y3,x4,y4:integer;
begin
readln(x1,y1,x2,y2);
x3:= round((x1 + x2) / 2 - (y2 - y1) / 2);
y3:= round((y1 + y2) / 2 + (x2 - x1) / 2);
x4:= round((x1 + x2) / 2 + (y2 - y1) / 2);
y4:= round((y1 + y2) / 2 - (x2 - x1) / 2);
writeln(x3,',',y3);
writeln(x4,',',y4);
end.

[hottab1]

Вводятся только 2 точки противоположные, и нужно найти по ним две другие точки

[VIK_aka_TOR]

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

при условии что стороны || осям
A(x1,y1)
D(x4,y4)
B(x4,y1)
C(x1,y4)

если... это хорошо...
правильнее наверное будет найти центр диагонали (данные виршины которые образуют) и воспользоваться матрицами поворота... на 90 градусов... относительно найденного центра.

[gaw4]

первое, о чем подумал, - это
длина стороны=длине диагонали/кор(2)
тогда получается 2 системы по 2 уравнения
напр для заданных точек а,с
точка b ищется из системы
(Xa-Xb)^2+(Ya-Yb)^2=d^2/2
(Xc-Xb)^2+(Yc-Yb)^2=d^2/2

[gaw4]

ой, блин, опоздал

[hottab1]

Спасибо всем большое)
Очень приятно знать, что остались хорошие люди

[hottab1]

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

var
x1,y1,x2,y2:integer;
x3,y3,x4,y4:integer;
begin
readln(x1,y1,x2,y2);
x3:= round((x1 + x2) / 2 - (y2 - y1) / 2);
y3:= round((y1 + y2) / 2 + (x2 - x1) / 2);
x4:= round((x1 + x2) / 2 + (y2 - y1) / 2);
y4:= round((y1 + y2) / 2 - (x2 - x1) / 2);
writeln(x3,',',y3);
writeln(x4,',',y4);
end.

Странно, программа всегда выдает 0, в чем может быть проблема?