高分求编程的...fortran滴

来源：百度知道 编辑：UC知道 时间：2024/05/21 12:38:06
s=1+1/3+1*2/3*5+.....+(1*2*3...*n)/(3*5*7...*(2n+1))
直到最后一项小于1.0e-6
求s

!求s=1+1/3+1*2/3*5+.....+(1*2*3...*n)/(3*5*7...*(2n+1)) fortran95程序,cvf6.6通过
program main
real::fi=1,fd,fm=1,fs=1
do while(fm>=0.000001)
fd=fi/(2*fi+1)
fm=fm*fd
fs=fs+fm
fi=fi+1
end do
write(*,*) "s=",fs
end program

你不会是要考级了吧。