作者btoker (阿瑞)
看板Fortran
標題[問題] 檔案讀取問題
時間Mon Aug 20 16:01:07 2018
有一個變數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://webptt.com/m.aspx?n=bbs/Fortran/M.1534752071.A.110.html
1F：→ blc: 迴圈的I,J只負責計數，裡面的READ不會因為I,J的值跳著讀檔 08/20 17:25
2F：→ Cypresslin: 首先修正你的縮排 08/29 15:23