如何找出一个三维数组中第一个不等于a的数值所在的坐标

fangyi919

例如有一个三维数组X(m,n,k),
如何编程找出程序中第一个不等于某一值（假定为a吧）的数X(m,n,k)，以及他所对应的坐标m,n,k
谢谢啦！

topmad

1. do i=1,m
   
2. do j=1,n
   
3.   do l=1,k
   
4.     if (x(i,j,k)/=a) then
   
5.     write(*,*)'第一个符合要求的值的位置为',i,j,k
   
6.     endif
   
7.     exit
   
8.    enddo
   
9.   enddo
   
10. enddo

复制代码

fangyi919

@topmad这个程序好像还是不对的哦，运行结果出来一大排的数据

topmad

fangyi919 发表于 2011-11-29 19:32

                               
登录/注册后可看大图

@topmad这个程序好像还是不对的哦，运行结果出来一大排的数据

呃 我打错了 最后一个循环应该是
do l=1，k
if (x(i,j,l)/=a) then  原来里面的l被错打成了k
实在抱歉  粗心了