Re: [心得] 可直接使用的快速排序法
自己回自己文好像怪怪的
其實是我後來想了想讀取格式的程式碼好像不用那麼複雜
只要這樣寫就同樣能夠得出space,decimal和digits的參數了
新增一個參數words(int)，用來判斷是不是已經沒有在讀空格而是在讀數字了
i = 0
words = 0
space = 0
do while(.true.)
i = i + 1
read(13,'(a1)',advance='no',iostat=stat) digi
if(digi.ne.' ') words = 1
if((digi.eq.' ').and.(words.eq.0)) space = i
if((digi.eq.' ').and.(words.ne.0)) exit
if(digi.eq.'.') decimal = i
end do
digits = i - 1
rewind(13)
想法很簡單，只要開始讀到不是空格，就是進入數字讀取的階段了
而讀到數字後又讀到空格，就是結束階段了
然而一開始有可能直接讀到數字，所以space要先預設為0比較保險
然後，好耶，這樣本板今年就超過一季一篇文了(誤
--
https://i.imgur.com/h4Q0F04.jpg
9月23日 發生大事了
因為就在這天，加藤惠誕生了
https://i.imgur.com/H3RhXfJ.jpg
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.139.189.144 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Fortran/M.1669459004.A.7A5.html
→
11/26 20:59,
1年前
, 1F
11/26 20:59, 1F
→
11/27 11:45,
1年前
, 2F
11/27 11:45, 2F
→
11/27 11:45,
1年前
, 3F
11/27 11:45, 3F
→
11/27 11:45,
1年前
, 4F
11/27 11:45, 4F
→
11/27 16:47,
1年前
, 5F
11/27 16:47, 5F
→
11/27 17:40,
1年前
, 6F
11/27 17:40, 6F
→
11/27 17:40,
1年前
, 7F
11/27 17:40, 7F
→
11/29 21:29,
1年前
, 8F
11/29 21:29, 8F
→
12/06 15:17,
1年前
, 9F
12/06 15:17, 9F
→
12/06 15:17,
1年前
, 10F
12/06 15:17, 10F
→
12/06 15:18,
1年前
, 11F
12/06 15:18, 11F
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
