dx:=value-x;
dy:=ey-y;
path:=Sqrt(sqr(dx)+sqr(dy));
if dy>0 then
tan:=dx/dy else tan:=0;
angle:=Round((ArcTan(tan)*180)/pi);
len:=round(path);
угол 0
Добавлено через 1 минуту
погите
__________________
Начало.
Последний раз редактировалось supernewbie, 18.03.2011 в 22:29.
Причина: Добавлено сообщение
|