作者Jing1118 (寻找ꜩ
看板Fortran
标题Re: [问题] 如何让阵列间相互运算
时间Wed May 13 05:21:53 2009
※ 引述《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