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

[Hint]

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

вектор х:=x2-x1;
вектор у:=y2-y1;
гипотинуза:=Sqrt(sqr(dx)+sqr(dy));

вот так да

Лучше без гипотенузы через арктангенс.

[supernewbie]

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

[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

x1=180
y1=450

x2=300
y2=450

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

[destructor]

и?

[supernewbie]

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

угол же 90