e_121_01.f90

Fortran77和90/95编程入门对应的程序源码

PROGRAM Example_1_1       ! 求两种平均値
	REAL :: a, b, av1, av2
	READ *, a, b
		av1 = (a + b)/2; av2 = (a*b)**0.5
	PRINT *, av1, av2
END