e_121_01.f

来自「fortran 教程」· 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