======================================================================
试题说明 :
======================================================================
补充编制fortran77程序prog1.for,其功能是计算并输出级
数和
1 1 (-1)^n
s(n)=x - ─x^3 + ─x^5 - ... + ── x^(2n+1)
3 5 2n+1
直到s(n)-s(n-1)<0.000001为止。其中x=0.7。
请编写该程序,最后运行程序。其中部分程序与输出子程序
writedat在程序中已经给出,不得修改。
======================================================================
程序 :
======================================================================
write(*,100) s
100 format(1x,'s=',e12.4)
write(*,*)
call writedat(s)
end
subroutine writedat(s)
open(10,file='bc01.out',status='new')
write(10,100) s
100 format(1x,e12.4)
end
======================================================================
所需数据 :
======================================================================
@3 $bc01.out 001
|.6107e+00
#e
责任编辑:小草