прогуливал геометрию, пасаны чеделать

[supernewbie]

как для двух чисел вычислить арктангенс?

[destructor]

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

Или же вспоминаем, что есть еще тангенс (отношение противолежащего к прилежащему).

так?

[supernewbie]

туплю в этой геометрии ппс(

[destructor]

противолежащийкатет:=y2-y1;
прилежащийкатет:=x2-x1;
тангенс: = противолежащийкатет / прилежащийкатет;
угол:= ArcTan( тангенс );


ну если только делфи опять не заглючит

[supernewbie]

а если противолежащийкатет или прилежащийкатет равен нулю??

[destructor]

нарисуй на бумажке такой отрезок, и померий транспортиром угол

[supernewbie]

x1=180
y1=450

x2=300
y2=450

dx=120
dy=0

path=120

angle=0

dx:=x2-x1;
dy:=y2-y2;
path:=Sqrt(sqr(dx)+sqr(dy));
tan:=dy/dx;
angle:=Round((ArcTan(tan)*180)/pi);

[destructor]

и?

[supernewbie]

это верно чтоли?

угол же 90

[destructor]

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

x1=180
y1=450

x2=300
y2=450

нарисуй отрезок, это не сложно, и втыкай под каким он углом к оси Х расположен.