※ 引述《laa7352 (Laa)》之銘言：
: ※ 引述《b906161 (...)》之銘言：
: → 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).....
: 不知道是不是你想要的
integer i,j,n
parameter (n=??)
dimension s(n,n),a(n),b(n),c(n)
do i=1,n
read(12,*) a(i),b(i),c(i)
do j=1,n
s(i,j)=0
enddo
enddo
do i=1,n-1
do j=i+1,n
s(i,j)=a(i)+a(j)
enddo
enddo
s(1,2)=a(1)+a(2)
s(1,3)=a(1)+a(3)
. . .
. . .
. . .
s(2,3)=a(2)+a(3)
. . .
. . .
. . .
s(3,4)=a(3)+a(4)
這樣宣告似乎有點浪費空間，不過應該有滿足a(1)和後面n-1個分別相加的結果XD
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.115.36.201
討論串 (同標題文章)