e_312_01.f90

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

double precision x, term, sum
read *, n,x
term=1.d0 ; sum=1.d0
do 10 i=1,n
	term=term*x/i;	sum=sum+term
10 continue
print *, sum
end