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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】一个关于循环嵌套的问题【已解决】
81/1返回列表
查看: 581  |  回复: 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返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[论文投稿] Sci. Bull. 悲剧经验 +3 jyang1999 2026-05-16 3/150 2026-05-19 10:13 by a15735923522
[基金申请] 评审有感 +10 popular289 2026-05-18 15/750 2026-05-19 09:18 by jurkat.1640
[考博] 26/27申博自荐-锂/钠电池方向 5+3 狗头军师. 2026-05-15 4/200 2026-05-19 09:10 by moonboat
[考博] 26/27博士推荐 +4 1木头人13949 2026-05-13 4/200 2026-05-19 08:29 by zhyzzh
[考博] 云南大学材料与能源学院解琳课题组钙钛矿博士招生 +3 光伏爱好者 2026-05-17 4/200 2026-05-19 01:19 by 风起于浮萍
[考博] 博士申请 +5 星…… 2026-05-18 6/300 2026-05-18 23:49 by 糊糊涂涂好
[基金申请] 面上本子正文33页，违规吗？会被低分嘛？ +8 1234567wang 2026-05-17 10/500 2026-05-18 18:52 by zzahkj
[基金申请] 国自然上会要求 +5 无名者登山 2026-05-18 9/450 2026-05-18 17:50 by BlakeReary
[找工作] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 ky2p12rrjj 2026-05-15 4/200 2026-05-17 19:47 by Equinoxhua
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 l7k6xnh0yc 2026-05-14 7/350 2026-05-17 19:42 by Equinoxhua
[公派出国] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 v9tggjlwd0 2026-05-15 5/250 2026-05-17 18:39 by Equinoxhua
[考博] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 7hlccowb3h 2026-05-15 4/200 2026-05-17 07:46 by 11n4dfd8yn
[博后之家] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 k37jurhrau 2026-05-16 4/200 2026-05-17 01:35 by ue3ir18jc3
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k37jurhrau 2026-05-16 3/150 2026-05-17 01:25 by ue3ir18jc3
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 x0mp7owy2b 2026-05-15 4/200 2026-05-17 00:25 by ue3ir18jc3
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 x0mp7owy2b 2026-05-15 4/200 2026-05-16 17:45 by j6b2pdz07o
[有机交流] 如何实现卤原子转化 +3 BT20230424 2026-05-15 5/250 2026-05-16 16:20 by czyzsu
[文学芳草园] 风把牡丹吹跑了 +5 myrtle 2026-05-12 9/450 2026-05-15 15:27 by myrtle
[教师之家] 教学课件你会给同学吗 +8 硕士研究生吗 2026-05-13 8/400 2026-05-14 22:23 by 常规沥青
[论文投稿] 求助大佬sci投稿哪个好中 +3 江沅188 2026-05-12 4/200 2026-05-13 14:35 by 江沅188
信息提示
关闭
请填处理意见
关闭