e_121_01.f

来自「Fortran77和90/95编程入门对应的程序源码」· F 代码 · 共 8 行

C------求两种平均値------
      PROGRAM Example_1_1
      REAL a, b, av1, av2
      READ (*,*) a, b
      av1 = (a + b)/2
      av2 = sqrt(a*b)
      WRITE(*,*) av1, av2
      END