您所在位置：主题：小小小程序，找不到错误
wangxinling
[专家分：0] 发布于 2012-07-19 10:19:00
如此简单的一个程序，怎么输出结果不对，哪里出错了？望大家帮助。
dx=1
dz=1
read*,x,z
do i=1,2
do j=1,2
xx=(i-1)*dx
zz=(j-1)*dz
ddx=(x-xx)/dx
ddz=(z-zz)/dz
enddo
enddo
do i=1,2
do j=1,2
print*,ddx,ddz
enddo
enddo
end
dx=1
dz=1
read*,x,z
do i=1,2
do j=1,2
xx=(i-1)*dx
zz=(j-1)*dz
ddx=(x-xx)/dx
ddz=(z-zz)/dz
enddo
enddo
do i=1,2
do j=1,2
print*,ddx,ddz
enddo
enddo
end
