作者laa7352 (Laa)
看板Fortran
标题Re: [问题] 如何让阵列间相互运算
时间Fri May 8 13:09:08 2009
※ 引述《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)