作者PTT0207445 (我是鄉民)
看板Fortran
標題Re: [問題] 檔案讀取問題
時間Thu Jan 17 09:10:25 2019
program main
implicit none
integer,
parameter :: X
=5, N
=40, N2
=N
/2
real,
dimension(N) :: ex
real,
dimension(N2) :: ans
integer :: i
open(
30,
status='old',
file='INP.TXT')
open(
31,
file='OPT.TXT')
do i
=1,N
read(
30,
*) ex(i)
enddo
ans
=ex(
1:N2)
*ex(N2
+1:N)
do i
=1,N2
write(
31,
*) ans(i)
enddo
close(
30)
close(
31)
end program main
※ 引述《btoker (阿瑞)》之銘言：
: 有一個變數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), 來自: 86.156.211.166
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Fortran/M.1547687427.A.D9C.html