Question

请用fortran语言帮忙编写一下程序

输入三角形三条边长A、B、C,先判断是否构成三角形,若能构成三角形则计算三角形三个角α、β、γ。编写程序实现之。

提示：使用FORTRAN 95提供的反余弦标准函数ACOS(x)或ACOSD(x)。

Answer 1

代码如下，供参考：

      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