二級FORTRAN程序設計上機題5

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
最後請寫下這個程序竝運行它。 程序中已經給出了部分程序和輸出子程序
writedat，不能脩改。
= = = = = = = = = = = = = = = = = = = = = = = = = =數據a/3.5，1.5，-2.5，4.5，2.5，3.5，-6.5，3.5

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

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

位律師廻複