二级FORTRAN程序设计上机题2

文章作者 100test 发表时间 2007:04:06 21:11:59
来源 100Test.Com百考试题网

计算机等级考试训练软件《百宝箱》

===============================================================================
试题说明 :
===============================================================================
补充编制fortran77程序prog1.for，其功能是计算并输出级
数和
1 1 1
s(n)=1 x ─x^2 ─x^3 ... ─x^n
2! 3! n!
直到s(n)-s(n-1)＜0.000001为止。其中x＝1.1。
请编写该程序，最后运行程序。其中部分程序与输出子程序
writedat在程序中已经给出，不得修改。
===============================================================================
程序 :
===============================================================================

write(*,100) s
100 format(1x,s=,e12.4)
write(*,*)
call writedat(s)
end

subroutine writedat(s)
open(10,file=bc02.out,status=new)
write(10,100) s
100 format(1x,e12.4)
end
===============================================================================
所需数据 :
===============================================================================
@3 $bc02.out 001
|.3004e 01
#e