请用fortran语言帮忙编写一下程序
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 06:41:10
请用fortran语言帮忙编写一下程序
输入三角形三条边长A、B、C,先判断是否构成三角形,若能构成三角形则计算三角形三个角α、β、γ.编写程序实现之.
提示:使用FORTRAN 95提供的反余弦标准函数ACOS(x)或ACOSD(x).
输入三角形三条边长A、B、C,先判断是否构成三角形,若能构成三角形则计算三角形三个角α、β、γ.编写程序实现之.
提示:使用FORTRAN 95提供的反余弦标准函数ACOS(x)或ACOSD(x).
代码如下,供参考: program test
implicit none
real(8) :: a,b,c
real(8) :: angle_a,angle_b,angle_c
print*, 'a,b,c = '
read(*,*) a,b,c
if(a .le. 0.0 .or. b .le. 0.0 .or. c .le. 0.0) then
stop 'a,b,c must be >= 0'
end if
if(a + b .le. c .or. a + c .le. b .or. b + c .le. a) then
stop 'a,b,c can not form a triangle'
end if
angle_a = acos( (b**2 + c**2 - a**2)/(2.0*b*c) ) * 180.0/acos(-1.0)
angle_b = acos( (a**2 + c**2 - b**2)/(2.0*a*c) ) * 180.0/acos(-1.0)
angle_c = acos( (a**2 + b**2 - c**2)/(2.0*a*b) ) * 180.0/acos(-1.0)
print*, 'angle(a) = ',angle_a,'degree'
print*, 'angle(b) = ',angle_b,'degree'
print*, 'angle(c) = ',angle_c,'degree'
stop
end program结果: a,b,c =
4 5 6
angle(a) = 41.4096209569432 degree
angle(b) = 55.7711321202143 degree
angle(c) = 82.8192419138864 degree
implicit none
real(8) :: a,b,c
real(8) :: angle_a,angle_b,angle_c
print*, 'a,b,c = '
read(*,*) a,b,c
if(a .le. 0.0 .or. b .le. 0.0 .or. c .le. 0.0) then
stop 'a,b,c must be >= 0'
end if
if(a + b .le. c .or. a + c .le. b .or. b + c .le. a) then
stop 'a,b,c can not form a triangle'
end if
angle_a = acos( (b**2 + c**2 - a**2)/(2.0*b*c) ) * 180.0/acos(-1.0)
angle_b = acos( (a**2 + c**2 - b**2)/(2.0*a*c) ) * 180.0/acos(-1.0)
angle_c = acos( (a**2 + b**2 - c**2)/(2.0*a*b) ) * 180.0/acos(-1.0)
print*, 'angle(a) = ',angle_a,'degree'
print*, 'angle(b) = ',angle_b,'degree'
print*, 'angle(c) = ',angle_c,'degree'
stop
end program结果: a,b,c =
4 5 6
angle(a) = 41.4096209569432 degree
angle(b) = 55.7711321202143 degree
angle(c) = 82.8192419138864 degree
请用fortran语言帮忙编写一下程序
Fortran语言小程序编写,请各路大神帮忙
请用C语言编写一下程序,
求教 fortran 高手! 怎么用fortran语言编写程序 用来构建一个三维网格
用牛顿切线法解决一个问题(方程)用fortran语言编写程序
用Fortran语言编写两个4*4矩阵乘的程序
编写牛顿均差插值多项式的程序用fortran语言
请用java语言编写排序程序.
fortran程序 第一次接触fortran语言,试着编写了一个简单的程序:program tsimplicit non
求大神帮忙用C语言编写这个程序.急.
求大神帮忙讲解一下这个fortran程序,
帮忙编写一个c语言程序,