您所在位置：主题：不能再简单的程序，为何输不出结果？
wangxinling
[专家分：0] 发布于 2012-07-26 20:16:00
dimension v(1000,1000)
do i=1,801
do j=1,801
v(i,j)=1600
enddo
enddo
do j=1,801
v(0,j)=3*v(1,j)-3*v(2,j)+v(3,j)
v(802,j)=3*v(801,j)-3*v(800,j)+v(799,j)
enddo
do i=1,801
v(i,0)=3*v(i,1)-3*v(i,2)+v(i,3)
v(i,802)=3*v(i,801)-3*v(i,800)+v(i,799)
enddo
print*,v(1,0)
end
do i=1,801
do j=1,801
v(i,j)=1600
enddo
enddo
do j=1,801
v(0,j)=3*v(1,j)-3*v(2,j)+v(3,j)
v(802,j)=3*v(801,j)-3*v(800,j)+v(799,j)
enddo
do i=1,801
v(i,0)=3*v(i,1)-3*v(i,2)+v(i,3)
v(i,802)=3*v(i,801)-3*v(i,800)+v(i,799)
enddo
print*,v(1,0)
end
