二级FORTRAN程序设计上机题1

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

直到s (n)-s (n-1) < 0.000001。其中x = 0.7。
请编写这个程序，最后运行它。程序中已经给出了部分程序和输出子程序
writedat，不能修改。
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

write(*，100) s
100格式(1x，s= '，e12.4)
write(*，*)
call writedat(s)
end

子例程writedat(s)
open(10，file='bc01.out '，status='new')
write(10，100) s
100 format(1x，e 12.4)
end
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =