这个程序哪里错了,已知三角形三边求三个角program mainimplicit 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)
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/21 14:45:39
![这个程序哪里错了,已知三角形三边求三个角program mainimplicit none real :: a, b, c real :: x, y, z write(*,*)](/uploads/image/z/12686294-38-4.jpg?t=%E8%BF%99%E4%B8%AA%E7%A8%8B%E5%BA%8F%E5%93%AA%E9%87%8C%E9%94%99%E4%BA%86%2C%E5%B7%B2%E7%9F%A5%E4%B8%89%E8%A7%92%E5%BD%A2%E4%B8%89%E8%BE%B9%E6%B1%82%E4%B8%89%E4%B8%AA%E8%A7%92program+mainimplicit+none++++real+%3A%3A+a%2C+b%2C+c++++real+%3A%3A+x%2C+y%2C+z++++write%28%2A%2C%2A%29+%22please+input+a%2C+b%2C+c%3A%22++++read%28%2A%2C%2A%29+a%2C+b%2C+c++++x%3Dacos%28%28c%2A%2Ac%2Bb%2A%2Ab-a%2A%2Aa%29%2F2%2Ab%2Ac%29++++++y%3Dacos%28%28c%2A%2Ac%2Ba%2A%2Aa-b%2A%2Ab%29%2F2%2Aa%2Ac%29)
这个程序哪里错了,已知三角形三边求三个角program mainimplicit 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)
这个程序哪里错了,已知三角形三边求三个角
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
这个程序哪里错了,已知三角形三边求三个角program mainimplicit 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)
中间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))