24小时热门版块排行榜

返回列表

astringent

铜虫 (著名写手)

应助: 16 (小学生)
金币: 2210.7
帖子: 1180
在线: 354.8小时
虫号: 900839

[交流] 【求助】如何实现这样的赋值

我有一数组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楼 2011-03-07 16:51:32

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

coolrainbow

木虫 (著名写手)

astringent(金币+20): 2011-03-08 04:18:09

In FORTRAN90 style

CODE:

i = 1

do while(p(i) /= 0)

    q(i) = 1

    i = i+1

enddo

q(i:) = 0

赞一下