Узнать угол зная X и Y

[Dj_smart]

чилса равные степени двойки... Почему-то...

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

Угол поворота относительно чего? Начала координат?

Это роли как таковой не играло - из относительной можно сделать абсолютную

[DomiNick]

Нашёл наконец...

Вот как я делал в одной из старых своих программ:

// Есть координаты двух точек: (x1,y1) и (x2,y2)

L:=SQRT((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)); // длина отрезка между двумя этими точками
If L<>0 Then // если длина не нулевая (точки не совпадают)
      If y2<=y1 Then
            ang:=-ArcCos((x2-x1)/L)
      Else
            ang:=ArcCos((x2-x1)/L)
Else
      Begin
      ShowMessage('Точки совпадают.');
      Exit;
      End;
ShowMessage('Угол равен  '+IntToStr(Round(ang/Pi*180))+'  градусов');

[FIRE_W]

function get_angle(x1,y1,x2,y2:single):single;
var dx,dy:single;
begin
dx:=x1-x2;
dy:=y1-y2;
if dy=0 then dy:=nan;{1.5 x 10^-45)}
if dy<0 then
   get_angle:=arctan(dx /dy )*180/pi+180 else
   if dy>=0 then
   get_angle:=arctan(dx /dy )*180/pi;

угол зависит от направления по Y
end;