[問題] 請教一下篩選資料的問題(以解決)

看板Fortran作者 (zx168zx)時間9年前 (2015/02/11 14:58), 9年前編輯推噓1(106)
留言7則, 5人參與, 最新討論串1/1
感謝各位大大 問題已解決 以下提供方法 我的程式大約如下 dimension Z(5) 定義一個dimension Z(1)=100 定義一個絕對比接下來你要的Z值還大的數字 Z(2)=0 Z(3)=0 Z(4)=0 Z(5)=0 do while (條件) . . . . if (條件) then if (z .LT. Z(1)) then z=Z(1) Z(2)=aa Z(3)=bb Z(4)=x Z(5)=y else Z(1)=Z(1) Z(2)=Z(2) Z(3)=Z(3) Z(4)=Z(4) Z(5)=Z(5) end if end if end do write(127,*) Z(2),Z(3),Z(4),Z(5),Z(1) 結果: 100 10 1 7 8 6 先把第一筆資料存起來 之後出現下一筆資料時 發現9比10小就不紀錄 然後繼續這樣比 讓最後WRITE 只記錄 100 10 1 7 8 6 這筆資料 這方法感覺笨笨的 如果大大們有更好的寫法 再麻煩告訴我一下 有大大跟我說用temp 但無奈看完網路上的用法完全沒有概念 就用這種方法了 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.116.46.243 ※ 文章網址: https://www.ptt.cc/bbs/Fortran/M.1423637884.A.1FA.html

02/11 16:31, , 1F
OPEN( STATUS='REPLACE')?????
02/11 16:31, 1F
※ 編輯: zx168zx (140.116.46.243), 02/11/2015 17:45:30

02/11 17:46, , 2F
r大 那個寫法是在open筆記本時候吧?
02/11 17:46, 2F

02/11 18:15, , 3F
開個temp存 出迴圈後再write?
02/11 18:15, 3F
※ 編輯: zx168zx (140.116.46.243), 02/11/2015 20:39:41

02/11 23:08, , 4F
把write移出迴圈,找到z更小的直接取代整組的aa~z變數
02/11 23:08, 4F

02/12 12:52, , 5F
感謝各位大大提供方法 我來試一下
02/12 12:52, 5F
※ 編輯: zx168zx (140.116.46.243), 02/13/2015 14:27:31

02/13 15:57, , 6F
第二個if的else就不需要了吧?
02/13 15:57, 6F

03/01 14:32, , 7F
else內容確實可拿掉@@直接end if
03/01 14:32, 7F
文章代碼(AID): #1Kslry7w (Fortran)
文章代碼(AID): #1Kslry7w (Fortran)