※ 引述《kobenein (哈哈哈)》之銘言：
: 例如迴圈從1跑到16
: 每跑一次就產生一個檔案
: 從 01.dat ~ 16.dat
: 謝謝！
program filenameList
implicit none
integer i
character*8 filename
do i = 1, 16
write( unit = filename, * ) i, ".txt"
open( unit = 1, file = filename )
close( 1 )
end do
end
隨手打打 不一定能跑 囧
重點就是把檔名字串當成輸出位置 用write寫入
怎麼補0...？ 自己玩
--
當我要追你時，我會送妳 x=sintsin(8t) y=cos(t)sin(8t)，讓妳天天開心。
當我們相愛時，我將把我的 x=cost|sin(t/2)| y=sint|sin(t/2)| 給妳，愛你一輩子。
但，
當我們分手時，我也會衷心的送一片
x=sint|sin2t||sin4t| y=cost|sin4t||sin4t| 給我曾經愛過的妳……
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.116.120.19