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)
: 請問該如何修正