[AleD]

Сообщение от Aristarh Dark

Совсем немного гугла и находим требуемое математика

Вот мне училка по мату тоже самое написала, но у меня чото неработает, вот моя функция, отредактируйте пожалуйста:

Код:

function GetAngleByXY(x,y,x2,y2: Integer): Integer;
var
  ang: Extended;
begin
  ang := 0;
  ang := x*x2+y*y2;
  ang := ang/(sqrt(sqr(x)+sqr(y))*sqrt(sqr(x2)+sqr(y2)));
  ang := cos(ang);

  Result := -round(ang);
end;