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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】一个关于循环嵌套的问题【已解决】
北京石油化工学院2026年研究生招生接收调剂公告
81/1返回列表
查看: 518  |  回复: 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返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 348求调剂 +3 小懒虫不懒了 2026-03-28 3/150 2026-03-29 00:39 by 544594351
[考研] 085600 材料与化工 329分求调剂 +10 Mr. Z 2026-03-25 10/500 2026-03-29 00:34 by 我是小康
[考研] 085600，专业课化工原理，321分求调剂 +4 大馋小子 2026-03-28 4/200 2026-03-29 00:32 by 544594351
[考研] 材料学硕333求调剂 +10 北道巷 2026-03-24 10/500 2026-03-28 23:06 by 无际的草原
[考研] 一志愿北化085600材料专硕275|有文章专利｜求调剂 +7 Micky11223 2026-03-25 7/350 2026-03-28 18:34 by 无际的草原
[考研] 085602 307分 求调剂 +7 不知道叫什么！ 2026-03-26 7/350 2026-03-28 09:57 by 神马都不懂
[材料工程] 一志愿C9材料与化工专业总分300求调剂 +8 曼111 2026-03-24 9/450 2026-03-28 07:58 by YYYYX1234
[考研] 085404求调剂，总分309，本科经历较为丰富 +4 来财aa 2026-03-25 4/200 2026-03-28 07:41 by 棒棒球手
[考研] 275求调剂 +10 jjjjjjjjjjl 2026-03-27 10/500 2026-03-27 23:47 by barnett0632
[考研] 化学308分求调剂 +8 你好明天你好 2026-03-23 9/450 2026-03-27 14:01 by 杨光于青云
[考研] 一志愿华东理工大学081700，初试分数271 +6 kotoko_ik 2026-03-23 7/350 2026-03-27 12:29 by 惠州彭于晏
[考研] 329求调剂 +5 1() 2026-03-22 5/250 2026-03-26 20:40 by fmesaito
[考研] 材料科学与工程 317求调剂 +4 JKSOIID 2026-03-26 4/200 2026-03-26 15:58 by 不吃魚的貓
[考研] 材料与化工328分调剂 +6 。，。，。，。i 2026-03-23 6/300 2026-03-25 22:30 by 418490947
[考研] 290分调剂求助 +3 吉祥止止陈 2026-03-25 3/150 2026-03-25 19:58 by barlinike
[考研] 考研一志愿苏州大学初始315（英一）求调剂 +3 sbdksD 2026-03-24 4/200 2026-03-25 18:16 by xcjcqu
[考研] 网络空间安全0839招调剂 +4 w320357296 2026-03-25 6/300 2026-03-25 17:59 by 255671
[考研] 材料考研调剂生 +3 黄粱一梦千年 2026-03-24 3/150 2026-03-24 17:00 by barlinike
[考研] 284求调剂 +3 yanzhixue111 2026-03-23 6/300 2026-03-23 22:58 by pswait
[考研] 070300，一志愿北航320求调剂 +3 Jerry0216 2026-03-22 5/250 2026-03-23 09:16 by 。。堂堂
信息提示
关闭
请填处理意见
关闭