回 帖 发 新 帖 刷新版面

主题:如何实现数组的特殊赋值???

我有一数组P(10),所存的值只有两种可能0和1,现在知道P(1)=1.我想用另外一个数组H(10)来标识P(10)的存值情况,如果数组P连续储存1,那么相应的H就赋值为1,否者只要出现0,相应的H以及它后面的H均赋值为0.比如说,数组P的值分别为1,1,1,1,0,1,1,0,0,0,那么相应的数组H的值为1,1,1,1,0,0,0,0,0,0,请问用程序该如何实现,请大家不吝赐教。先谢了。

回复列表 (共1个回复)

沙发

H=1
DO I=1,10
  IF(P(I)==0) THEN
    H(I:10)=0
    EXIT
  ENDIF
ENDDO

我来回复

您尚未登录,请登录后再回复。点此登录或注册