FORTRAN语言程序

输出的数是这样的

1   2

3   4

5   6

(1X,2I4)意思是,每一次输出一个空格,然后是两个占4位的整数然后就该换行了

因此一共生成三行数据,6/2=3

输出的值是J,J的大小是1到6,因此生成的记录数应该是A  6个

代码如下，供参考：

      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 00 or b le 00 or c le 00) 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( (b2 + c2 - a2)/(20bc) )  1800/acos(-10)

      angle_b = acos( (a2 + c2 - b2)/(20ac) )  1800/acos(-10)

      angle_c = acos( (a2 + b2 - c2)/(20ab) )  1800/acos(-10)

      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) =    414096209569432      degree

 angle(b) =    557711321202143      degree

 angle(c) =    828192419138864      degree

以上就是关于FORTRAN语言程序全部的内容，包括:FORTRAN语言程序、请用fortran语言帮忙编写一下程序、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！