ZKX's LAB

在任意三角形中,求一个角的余弦值 编程序求三角形的 余弦

2021-04-09知识8

vb 写个程序 给三角形三边求一个角 用余弦定理 Private Sub Command1_Click()a=30b=30c=30Print\"三边长为:;a;b;cx=(c*c-(a*a+b*b))/(2*a*b)Angle_C=Atn(-x/Sqr(-x*x+1))+2*Atn(1)Print\"角C=;Round(Angle_C/3.1415926*180,2);度End Sub

VB题目:输入三角形的三边编程求出面积 Private Sub Command1_Click()Dim a#,b#,c#,p#Me.AutoRedraw=Truea=3:b=4:c=5Doa=Val(InputBox(\"请输入三角形第一条边\",\"输入\",a))b=Val(InputBox(\"请输入三角形第二条边\",\"输入\",b))c=Val(InputBox(\"请输入三角形第三条边\",\"输入\",c))If a a Thenp=(a+b+c)/2 'S=√[p(p-a)(p-b)(p-c)](海伦公式)(p=(a+b+c)/2))Print\"面积:;(p*(p-a)*(p-b)*(p-c))^0.5Exit SubElseMsgBox\"你输入的数据构成不了三角形。vbQuestion+vbOKOnly,\"请检查输入End IfLoopEnd Sub

用余弦的话能求出三角形的面积吗,就像S=1/2absinC这样的公式 用余弦是不能直接求三角形的面积的,可以把余弦转化为正弦再求因为△的内角小于180°,所以正弦值都大于0sina=√[1-(cosa)^2]

#锐角三角形函数余弦正切#用余弦求三角形度数#正弦与余弦三角形综合题#余弦求三角形面积#知道余弦怎么求三角形度数

随机阅读

qrcode
访问手机版