二级FORTRAN程序设计上机题2
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 3! n!
直到s (n)-s (n-1) < 0.000001。其中x = 1.1。
请编写这个程序,最后运行它。程序中已经给出了部分程序和输出子程序
writedat,不能修改。
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
write(*,100) s
100格式(1x,s= ',e12.4)
write(*,*)
call writedat(s)
end
子例程writedat(s)
open(10,file='bc02.out ',status='new')
write(10,100) s
100 format(1x,e 12.4)
end
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
0条评论