应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】一个关于循环嵌套的问题【已解决】
北京石油化工学院2026年研究生招生接收调剂公告
81/1返回列表
查看: 514  |  回复: 7
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。

xiuxiu2665

木虫 (初入文坛)

[交流] 【求助】一个关于循环嵌套的问题【已解决】

小弟想做一个多层循环的嵌套，但循环嵌套的层数不确定，想由用户确定。说白了，就是想做一个n层的{do...{do...end do}end do}，但n不确定。想了半天，没有找到合适的方案。哪位大侠能够指点迷津，不胜感激。

[ Last edited by wangen994 on 2009-6-27 at 22:12 ]
回复此楼

» 猜你喜欢
1楼 2009-06-24 17:14:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

老虎大王

木虫 (著名写手)
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
wangmonk(金币+1,VIP+0):深入讨论 6-24 22:00
spc08(金币+1,VIP+0):谢谢交流 6-24 22:11
wangen994(金币+1,VIP+0):受楼主委托，感谢你的参与讨论 6-27 22:08
你通过在Do/enddo 里面加入cycle, exit等语句，以及使用if then/endif 、以及goto等 语句，可以实现对于要不要进入某层循环的控制。
赞一下(27人) 回复此楼
2楼2009-06-24 18:24:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wuchenwf

荣誉版主 (职业作家)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
sunxiao(金币+1,VIP+0):thank you 6-26 03:15
wangen994(金币+1,VIP+0):受楼主委托，感谢你参与讨论 6-27 22:09
这个应该不难吧，像搂上说的把程序写出来看看 我觉得就行
赞一下(21人) 回复此楼
3楼2009-06-24 19:35:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lvjian8596

木虫 (小有名气)
★ ★ ★ ★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
spc08(金币+1,VIP+0):感谢交流 6-24 22:11
wangen994(金币+5,VIP+0):受楼主委托，感谢你参与讨论 6-27 22:09
搂主的问题是要写不确定个DO  END DO！感觉靠cycle, exit等，还是没法确定！
假如你程序中写了N个DO，那么想做N＋1的时候该怎么办呢，希望高手指点！
用递归函数不知道可不可以！recursive

[ Last edited by lvjian8596 on 2009-6-24 at 20:48 ]
赞一下(21人) 回复此楼
4楼2009-06-24 20:29:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sitonyl

铁杆木虫 (文坛精英)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
wangen994(金币+1,VIP+0):受楼主委托，感谢你参与讨论 6-27 22:09
这个的确不太容易，现在还没想明白。
赞一下(11人) 回复此楼
zz
5楼2009-06-24 21:03:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

woshilsh

荣誉版主 (职业作家)

优秀版主
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
wangmonk(金币+1,VIP+0):深入讨论 6-24 22:01
wangen994(金币+10,VIP+0):受楼主委托，感谢你参与讨论 6-27 22:10
function  xunhuan(n) //n就是你想要的层数
//写你循环里面的东西
do.....
enddo
xunhuan(n-1);

其实就是楼上说的递归
赞一下(17人) 回复此楼
[center][url=http://www.91cool.net/][img]http://id.91cool.net/sign/?name=小木虫印&say=各位版主辛苦了！[/img][/url][/center]
6楼2009-06-24 21:56:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xiuxiu2665

木虫 (初入文坛)

谢谢大家啦

wangen994(金币+0,VIP+0):请你给我发信息告诉我你讲给那个虫子多少金币，我帮你操作， 6-27 09:01
以前没有用过recursive，准备回去试试6楼的方案。谢谢大家的建议。不知道怎么给金币。。。

因为我想要嵌套，不知道应不应该改成这样
subroutine xunhuan(n)
do ...
......
call xunhuan(n-1)
......
enddo
end
引用回帖:
Originally posted by woshilsh at 2009-6-24 21:56:
function  xunhuan(n) //n就是你想要的层数
//写你循环里面的东西
do.....
enddo
xunhuan(n-1);

其实就是楼上说的递归

赞一下(6人) 回复此楼
7楼2009-06-25 09:08:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

woshilsh

荣誉版主 (职业作家)

优秀版主
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
wangen994(金币+1,VIP+0):谢谢你的 参与 6-27 09:00
Foutran语言我涉及过一点，但是有目的性的设计

所以我是根据C语言思路写那种递归套路，呵呵！

希望你早日搞定！
赞一下(7人) 回复此楼
[center][url=http://www.91cool.net/][img]http://id.91cool.net/sign/?name=小木虫印&say=各位版主辛苦了！[/img][/url][/center]
8楼2009-06-26 13:57:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 xiuxiu2665 的主题更新
81/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿211 初试270分 求调剂 +8 谷雨上岸 2026-03-23 9/450 2026-03-29 01:00 by 我是小康
[考研] 305求调剂 +7 RuiFairyrui 2026-03-28 7/350 2026-03-29 00:40 by 544594351
[考研] 本科双非材料，跨考一志愿华电085801电气，283求调剂，任何专业都可以 +6 芝士雪baoo 2026-03-28 7/350 2026-03-28 21:40 by zhq0425
[考研] 一志愿中南大学化学0703总分337求调剂 +5 niko- 2026-03-27 5/250 2026-03-28 14:25 by 唐沐儿
[考研] 346求调剂 一志愿070303有机化学 +3 萝卜炖青菜 2026-03-28 3/150 2026-03-28 14:11 by 唐沐儿
[考研] 286求调剂 +4 丢掉懒惰 2026-03-27 7/350 2026-03-28 08:07 by baoball
[考研] 291求调剂 +6 HanBeiNingZC 2026-03-24 6/300 2026-03-28 07:55 by baoball
[考研] 085701环境工程求调剂 +9 多久上课 2026-03-27 9/450 2026-03-28 03:58 by fmesaito
[考研] 求调剂 +8 张zz111 2026-03-27 9/450 2026-03-28 03:41 by fmesaito
[考研] 265求调剂11408 +3 刘小鹿lu 2026-03-27 3/150 2026-03-27 20:53 by nihaoar
[考研] 求调剂 +4 零八# 2026-03-27 4/200 2026-03-27 18:07 by yu221
[考研] 272求调剂 +7 脚滑的守法公民 2026-03-27 7/350 2026-03-27 17:23 by laoshidan
[考研] 一志愿陕师大生物学071000，298分，求调剂 +5 SYA！ 2026-03-23 5/250 2026-03-27 09:29 by 不吃魚的貓
[考研] 359求调剂 +4 王了个楠 2026-03-25 4/200 2026-03-27 08:43 by 不吃魚的貓
[考研] 081200-11408-276学硕求调剂 +4 崔wj 2026-03-26 4/200 2026-03-27 08:04 by chemisry
[考研] 284求调剂 +11 junqihahaha 2026-03-26 12/600 2026-03-27 04:37 by wxiongid
[考研] 317求调剂 +7 蛋黄咸肉粽 2026-03-26 7/350 2026-03-27 02:29 by fmesaito
[考研] 325求调剂 +5 李嘉图·S·路 2026-03-23 5/250 2026-03-27 00:42 by wxiongid
[考研] 求调剂 一志愿 本科 北科大 化学 343 +6 13831862839 2026-03-24 7/350 2026-03-26 22:57 by 不吃魚的貓
[考研] 335求调剂 +4 yuyu宇 2026-03-23 5/250 2026-03-23 23:49 by Txy@872106
信息提示
关闭
请填处理意见
关闭