回 帖 发 新 帖 刷新版面

主题:[讨论]如何实现??

我有一数组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,请问用程序该如何实现,请大家不吝赐教。先谢了。

回复列表 (共2个回复)

沙发

有一种运算叫逻辑运算

板凳

PROGRAM MAIN

  INTEGER P(10),H(10)

  DATA P /1,1,0,1,1,0,1,1,1,1/
  DATA H /1,0,0,0,0,0,0,0,0,0/

  DO I=2,10
    IF (P(I) == 1)  THEN
      H(I)=1
    ELSE
      EXIT
    END IF
  END DO

  DO J=I,10
    H(J)=0
  END DO

  STOP
  END

我来回复

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