※ 引述《b906161 (...)》之銘言：
: 因為要使每一個陣列運算
: 例如
: do v=1,sum
: read(12,*) a(v),b(v),c(v)
: S=a(v)+a(v+1)
: end do
: 先讀出txt檔裡的值
: 不過 a(v+1) 好像是錯誤的寫法？
: 跑到這會出現錯誤
: 一開始陣列的宣告也是比sum大很多
: 所以記憶空間應該夠
: 是哪裡出了問題？
: 感謝
→ YCTzeng:do i=1,n; do j=i,n; s=s+a(j); enddo; enddo 是這樣嗎? 05/05 09:34
→ b906161:不是.是a(1)+a(2)、a(1)+a(3)... a(2)+a(3),a(3)+a(4)...
integer i,j,sum
parameter (sum=??)
dimension a(sum),b(sum),c(sum),s(sum)
do i=1,sum
read(12,*)a(i),b(i),c(i)
s(i)=0
enddo
do i=1,sum
do j=i,sum
s(i)=a(j)+s(i)
enddo
enddo
結果是
s(1)=a(1)+a(2)+a(3).....
s(2)= a(2)+a(3).....
s(3)= a(3)......
s(n)= a(n)+a(n+1).....
不知道是不是你想要的
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.137.32.73
※ 編輯: laa7352 來自: 140.137.32.73 (05/08 13:12)