e_312_01.f90

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

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