这个程序哪里错了,已知三角形三边求三个角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/12/26 04:22:26
这个程序哪里错了,已知三角形三边求三个角programmainimplicitnonereal::a,b,creal::x,y,zwrite(*,*)"pleaseinputa,b,c:"read(*

这个程序哪里错了,已知三角形三边求三个角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))

这个程序哪里错了,已知三角形三边求三个角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) 已知三角形三边,如何求三个角的度数? 已知三角形的三边长度A,B,C.求三角形的三个角a,bc.. 已知三角形三边长度,求三个角的角度.已知三角形三边长度,求三个角的角度,最好有公式 已知三角形三边长度,求三个角度的计算方法 已知三角形的三边分别问10,8,7,求三个角的角度 已知三角形三个角度数分别是40度60度80度求三边的比值已知三角形三个角度数分别是40度60度80度求这个三角形三边的比值. 如果已知三角形的三边的长度、怎么算出三角形的三个角的角度大小因为如果三角形三边确定、那么这个三角形的大小和形状就都确定了形状确定、那这个三角形的三个角的角度、大小也就 任意给定三个实数,设计一个算法,判断以这3个实数为边长的三角形是否存在,并画出这个算法的程序框图除了三边之和大于第三边.三边之差小于第三边这个方法 已知三角形三边求三角边分别为3.4.5.求三个角用余弦定理怎样解? 已知三角形的三个顶点是A(5,0),B(3,-3),C(0,1),求这个三角形三边所在的直线的方程 已知三角形三边,解其它元素.包括高度.是不是已知三边,这个三角形的形状大小就固定了? 三角形ABC三边为a,b,c,已知三个内角A.B.C成等差数列,求角B大小 三角形ABC三边为a,b,c,已知三个内角A.B.C成等差数列,求角A大小 问一下已知三角形三边长度,知道其中一个角的大小,怎么求这个三角形的面积啊 一个直角三角形三边的长为三个连续整数,求这个三角形三边的长和面积. 一个直角三角形三边的长为三个连续偶数,求这个三角形的面积. 一个直角三角形三边的长为三个连续偶数求这个三角形的三条边的长