作业帮 > 综合 > 作业

这个程序哪里错了,已知三角形三边求三个角

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/13 16:47:33
这个程序哪里错了,已知三角形三边求三个角
program main
implicit none
real :: a, b, c
real :: x, y, z
write(*,*) "please input a, b, c:"
read(*,*) a, b, c
x=acos((c**c+b**b-a**a)/2*b*c)
y=acos((c**c+a**a-b**b)/2*a*c)
z=acos((a**a+b**b-c**c)/2*b*a)
write(*,*) x, y, z
call sleep(2)
stop
end
中间3句应修改为:
x=acos((c*c+b*b-a*a)/(2*b*c))
y=acos((c*c+a*a-b*b)/(2*a*c))
z=acos((a*a+b*b-c*c)/(2*b*a))
再问: 还说有错啊,求指导!
再答: 有什么提示?