[問題] 檔案讀取問題

看板Fortran作者 (阿瑞)時間6年前 (2018/08/20 16:01), 編輯推噓0(002)
留言2則, 2人參與, 6年前最新討論串1/2 (看更多)
有一個變數X=5 會產生下面的文字檔 文字檔共有40列 如下 10.66 8.43 72.47 50.29 29.91 10.66 8.43 72.47 50.29 29.91 99.99 8.43 72.47 50.29 29.91 99.99 8.43 72.47 50.29 29.91 1. 2. 3. 4. 5. 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 6. 7. 8. 9. 10. 可以明顯的發現這個數列是5個5個一組的 我想把第1列的10.66與第21列的1.0相乘 第2列的 8.43與第22列的2.0相乘 輸出到另一個檔案 初步錯誤的程式碼如下 OPEN(UNIT=30,STATUS="OLD",FILE="INP.TXT") OPEN(UNIT=31,FILE="OPT.TXT") DO I=1,X*4,1 READ(30,*)EX DO J=1,X*4,1 READ(30,*)AX END DO ANS=EX*AX WRITE(31,*)ANS END DO CLOSE(30) CLOSE(31) 請問該如何修正 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 218.161.15.8 ※ 文章網址: https://www.ptt.cc/bbs/Fortran/M.1534752071.A.110.html

08/20 17:25, 6年前 , 1F
迴圈的I,J只負責計數,裡面的READ不會因為I,J的值跳著讀檔
08/20 17:25, 1F

08/29 15:23, 6年前 , 2F
首先修正你的縮排
08/29 15:23, 2F
文章代碼(AID): #1RUdL74G (Fortran)
討論串 (同標題文章)
文章代碼(AID): #1RUdL74G (Fortran)