24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 234  |  回复: 1

astringent

铜虫 (著名写手)


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

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

» 猜你喜欢

» 抢金币啦!回帖就可以得到:

查看全部散金贴

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
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

2楼2011-03-07 18:26:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 astringent 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085600,320分求调剂 +6 大馋小子 2026-04-02 6/300 2026-04-02 21:54 by dongzh2009
[考研] 0703化学 +5 goldtt 2026-04-02 7/350 2026-04-02 21:32 by dongzh2009
[考研] 085601一志愿北理325分求调剂 +4 找调剂,, 2026-04-02 4/200 2026-04-02 21:29 by dongzh2009
[考研] 一志愿华中农业071010,总分320求调剂 +6 困困困困坤坤 2026-04-02 6/300 2026-04-02 21:28 by dongzh2009
[考研] 一志愿北京科技材料科学与工程288分,求调剂 +14 是辰啊 2026-04-02 14/700 2026-04-02 21:10 by dongzh2009
[基金申请] esi高被引论文是不是能对中标有所加分和帮助呢 +4 redcom 2026-04-01 5/250 2026-04-02 20:48 by redcom
[考研] 0832食品科学与工程学硕282调剂 +4 鱼在水中游a 2026-04-02 7/350 2026-04-02 14:12 by baoball
[考研] 275求调剂 +13 jjjjjjjjjjl 2026-03-27 13/650 2026-04-02 13:07 by yulian1987
[考研] 279求调剂 +7 莫xiao 2026-04-01 7/350 2026-04-01 22:05 by 客尔美德
[考研] 339求调剂,想调回江苏 +7 烤麦芽 2026-03-27 10/500 2026-04-01 21:35 by 495374996
[考研] 环境工程 085701,267求调剂 +15 minht 2026-03-29 16/800 2026-04-01 10:13 by li_sujuan99
[考研] 318一志愿吉林大学生物与医药 求调剂 +6 笃行致远. 2026-03-28 6/300 2026-04-01 09:28 by oooqiao
[考研] 335求调剂 +3 321* 2026-03-31 4/200 2026-04-01 00:00 by 321*
[考研] 0856 335分 +9 cccchenso 2026-03-29 9/450 2026-03-31 16:37 by lishahe
[考研] 282求调剂 不挑专业 求收留 +4 Yam. 2026-03-30 5/250 2026-03-31 14:41 by 王亮_大连医科大
[考研] 一志愿大连理工大学,机械工程学硕,341 +3 西瓜田的守望者 2026-03-30 3/150 2026-03-31 11:08 by asdfzly
[考研] 0703化学321分求调剂 +10 三dd. 2026-03-30 11/550 2026-03-30 19:24 by markhwc
[考研] 本科双非材料,跨考一志愿华电085801电气,283求调剂,任何专业都可以 +6 芝士雪baoo 2026-03-28 8/400 2026-03-29 08:16 by 松花缸1201
[考研] 285求调剂 +4 AZMK 2026-03-27 7/350 2026-03-27 20:59 by AZMK
[考研] 调剂 +3 李嘉图·S·路 2026-03-27 3/150 2026-03-27 11:19 by wangjy2002
信息提示
请填处理意见