版块导航
正在加载中...
客户端APP下载
登录
注册
帖子
帖子
用户
本版
应《网络安全法》要求,自2017年10月1日起,未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用,请尽快对帐号进行手机号验证,感谢您的理解与支持!
24小时热门版块排行榜
>
论坛更新日志
(2743)
>
文献求助
(169)
>
虫友互识
(143)
>
导师招生
(134)
>
考博
(66)
>
招聘信息布告栏
(62)
>
休闲灌水
(45)
>
基金申请
(44)
>
硕博家园
(37)
>
博后之家
(29)
>
仿真模拟
(27)
>
找工作
(23)
>
论文投稿
(22)
>
工艺技术
(21)
>
学术会议
(20)
>
绿色求助(高悬赏)
(19)
小木虫论坛-学术科研互动平台
»
计算模拟区
»
程序语言
»
Fortran
»
【求助】如何实现这样的赋值
2
1/1
返回列表
查看: 246 | 回复: 1
只看楼主
@他人
存档
新回复提醒
(忽略)
收藏
在APP中查看
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,请问用程序该如何实现,请大家不吝赐教。先谢了。
回复此楼
» 猜你喜欢
生活琐事由它去
已经有4人回复
评审有感
已经有32人回复
提交了我也来说说感想
已经有12人回复
青B发送上会通知了吗
已经有9人回复
西安交大新媒学院副院长用撤稿论文结题
已经有6人回复
论文撤稿了
已经有8人回复
博士申请
已经有7人回复
化学专业申博
已经有4人回复
河北省自然科学基金
已经有9人回复
某211大学教师把个人教师官方主页改成:我跑了我跑了我跑了!官宣跑路!
已经有5人回复
高级回复
» 抢金币啦!回帖就可以得到:
查看全部散金贴
中科院二区期刊Gels 组稿
+
1
/83
武汉工程大学(省属一本)招聘师资博士后以及人才引进教师(事业编)
+
1
/82
福州大学化工学院电子化学品团队博士招生,还有一个名额!
+
1
/77
空军军医大学第一附属医院药学部科研助理招聘
+
1
/74
不想生娃了,寻找一位已有孩子的成熟男士,相伴到老!
+
2
/50
【急招】 北京工业大学 第二批博士申请-杰青课题组1-2名额,25日截止!!
+
1
/41
江西理工大学稀土学院急招博士生(2026年9月入学)2名,稀土光功能材料方向,非诚勿扰
+
1
/28
安徽农业大学招聘师资博士后以及人才引进教师
+
1
/26
【博士招生】武汉科技大学招收材料、化工、环境、冶金类2026年“申请-考核”制博士生
+
1
/18
【急招】 北京工业大学 能动第二批博士申请-杰青课题组1-2名额,25日截止!!
+
1
/14
中国农业大学资源与环境学院 - 招聘杰出人才、青年研究员、优秀人才和博士后
+
1
/13
上海交通大学研究生招生咨询会,来了!
+
1
/12
南京农业大学2026年申请考核制博士招生:最后一批啦!
+
1
/12
西安交通大学陕西省科技创新团队招聘2027年免试保送生和考研生,2-4个名额
+
1
/10
英国伯明翰大学工程学院招收国际全奖博士生(closing soon请尽快联系)
+
1
/5
博士后招聘(高薪40万+)
+
1
/3
求助专利一篇,谢谢
+
1
/3
郑州大学2026年材料科学与工程学术博士有名额,这几天报名!有意向联系!
+
1
/3
北航杭州国际校区招聘3D 打印,陶瓷,力学等方向博士后
+
1
/1
紧急招收2026年秋季入学博士生1名(河北工大/北京科技大学联合 增材制造/生物材料)
+
1
/1
1楼
2011-03-07 16:51:32
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
coolrainbow
木虫
(著名写手)
程序强帖: 2
应助: 1
(幼儿园)
贵宾: 0.1
金币: 3979.5
帖子: 1137
在线: 272.3小时
虫号: 239560
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
的主题更新
2
1/1
返回列表
如果回帖内容含有宣传信息,请如实选中。否则帐号将被全论坛禁言
普通表情
龙
兔
虎
猫
高级回复
(可上传附件)
百度网盘
|
360云盘
|
千易网盘
|
华为网盘
在新窗口页面中打开自己喜欢的网盘网站,将文件上传后,然后将下载链接复制到帖子内容中就可以了。
信息提示
关闭
请填处理意见
关闭
确定