计算直线长度 (100分)

L

lsys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-10

• #1

1、delphi计算两点之间的距离用什么函数！
2、计算三角型的的角度用什么函数

 

阿

阿尔卑斯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #2

不需要找函数吧，自己写[]

 

M

MilkRoad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #3

function CalcLength(x1, y1, x2, y2: integer): double;
begin
result := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
end;

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #4

1.点p1,p2:Tpoint;
勾股定理如下：
Edit1.Text:=FloatToStr(sqrt(sqr(p1.x-p2.x)+sqr(p1.y-p2.y)));
2.你已知什么条件了？ 可根据“三角函数”来做！

 

L

lsys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #5

2、计算三角型的的角度用什么函数
已知三条边的长度

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #6

三角型如下： 三边长x y z ，锐角A －－－
/|
/ |
y / | x
/ |
/ A |
-------
z
sinA＝x/y ＝＝＝> A＝Arcsin(x/y) －－反正弦函数
当然也可用反余弦函数 反正切函数 反余切函数 等等一系列！
呵呵 这是中学数学的东东 都快忘了！
delphi－－：
Edit1.Text:=FloatToStr(Arcsin(x/y)*180/PI); 得到的是以角度 °为单位的值。
当然你也可采用弧度值表示。

别忘了要 uses Math 单元！ []

 

H

Huzzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #7

楼上的对直角三角形有效，只需要两条边即可算出夹角，但要知道两条边是直角边还是弦。
非直角则直接用余弦定理：cc=aa-2ab*cos(A)+bb。（cc是指c的平方，c是角的对边，a,b是邻边）
也就是：A = acrcos{(aa+bb-cc)/2ab}。（单位为弧度）

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #8

hehe
dui

 

L

lsys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-13

• #9

多人接受答案了。

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-13

• #10

我去找我中学的书去！ []