考考大家的脑瓜子，编程智商150+的来~~~~~

花诗雨露

100只猴子围坐成一个圈，按顺时针方向从1到100编号。然后从1号猴子开始沿顺时针方向从1开始报数，报到14的猴子出局，再从刚出局猴子的下一个位置重新开始报数，如此重复，直至剩下一个猴子，它就是大王！


请按照题目的表述 写出程序来，并且算出哪个是猴王~


代码要易读，优雅，符合题目表述的操作方式来进行处理，看看有没有大神脑袋好使的。




答案回复可见
*****

gusin

你隔着隔着隔着呢

Hoibben

这不就是经典的约瑟夫环问题 找这个就够了 其他的转汇编嘎嘎的就完事了~

悟空科技

搁这耍猴呢？

Suky

考考大家脑瓜子
https://bbs.125.la/forum.php?mod=viewthread&tid=14831477
(出处: 精易论坛)

才几天时间，人就变成猴了

heize

花诗雨露

大家看看我写的代码，运行结果也是92

无敌小爱

这和数学好不好有关系，跟编程逻辑好不好 关系不大

chenyucheng

解题程序：

  

窗口程序集名	保 留	保 留	备 注
(未填写程序集名)
变量名	类 型	数组	备 注
变量名	类 型	数组	备 注
猴子	整数型	100

子程序名	返回值类型	公开	备 注
解题

变量名	类 型	静态	数组	备 注
当前猴子记录编号	整数型			当前猴子在数组中的编号
当前报数	整数型

重定义数组 (猴子, 假, 100)
计次循环首 (100, 当前猴子记录编号)
猴子 [当前猴子记录编号] ＝ 当前猴子记录编号
计次循环尾 ()
当前猴子记录编号 ＝ 1
当前报数 ＝ 1
循环判断首 ()
如果 (当前报数 ＝ 14)
删除成员 (猴子, 当前猴子记录编号, 1)
当前报数 ＝ 1
如果真 (当前猴子记录编号 ＞ 取数组成员数 (猴子))
当前猴子记录编号 ＝ 1

当前报数 ＝ 当前报数 ＋ 1
如果 (当前猴子记录编号 ＜ 取数组成员数 (猴子))
当前猴子记录编号 ＝ 当前猴子记录编号 ＋ 1
当前猴子记录编号 ＝ 1


循环判断尾 (取数组成员数 (猴子) ≠ 1)
答案标签.标题 ＝ “答：猴子” ＋ 到文本 (猴子 [1]) ＋ “是猴王。”

.版本 2<br /> .程序集变量 猴子, 整数型, , "100"<br /> <br /> .子程序 解题<br /> .局部变量 当前猴子记录编号, 整数型, , , 当前猴子在数组中的编号<br /> .局部变量 当前报数, 整数型<br /> <br /> 重定义数组 (猴子, 假, 100)<br /> .计次循环首 (100, 当前猴子记录编号)<br />     猴子 [当前猴子记录编号] ＝ 当前猴子记录编号<br /> .计次循环尾 ()<br /> 当前猴子记录编号 ＝ 1<br /> 当前报数 ＝ 1<br /> .循环判断首 ()<br />     .如果 (当前报数 ＝ 14)<br />         删除成员 (猴子, 当前猴子记录编号, 1)<br />         当前报数 ＝ 1<br />         .如果真 (当前猴子记录编号 ＞ 取数组成员数 (猴子))<br />             当前猴子记录编号 ＝ 1<br />         .如果真结束<br /> <br />     .否则<br />         当前报数 ＝ 当前报数 ＋ 1<br />         .如果 (当前猴子记录编号 ＜ 取数组成员数 (猴子))<br />             当前猴子记录编号 ＝ 当前猴子记录编号 ＋ 1<br />         .否则<br />             当前猴子记录编号 ＝ 1<br />         .如果结束<br /> <br />     .如果结束<br /> .循环判断尾 (取数组成员数 (猴子) ≠ 1)<br /> 答案标签.标题 ＝ “答：猴子” ＋ 到文本 (猴子 [1]) ＋ “是猴王。”

算出来的答：猴子92是猴王。

完整程序： 哪个是猴王.e (7.62 KB, 下载次数: 1)

2024-8-15 16:07 上传

点击文件名下载附件

辽阳小哲

这个昨天有人发过了吧，最后剩下的是92号，代码见：
https://bbs.125.la/thread-14831477-1-1.html

人类清除计划

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
集_人类	人类	0

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

人口膨胀 (100)
调试输出 (“初始人数：” ＋ 到文本 (取数组成员数 (集_人类)))
人类清除计划 (14)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
人口膨胀
参数名	类 型	参考	可空	数组	备 注
膨胀人数	整数型

变量名	类 型	静态	数组	备 注
i	整数型
temp	人类

清除数组 (集_人类)
计次循环首 (膨胀人数, i)
temp.id ＝ i
temp.标记 ＝ “第” ＋ 到文本 (i) ＋ “人”
加入成员 (集_人类, temp)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
人类清除计划
参数名	类 型	参考	可空	数组	备 注
清除第几人	整数型

变量名	类 型	静态	数组	备 注
剩余人数	整数型
计次	整数型

调试输出 (“==================== 游 戏 开 始 =====================”)
剩余人数 ＝ 取数组成员数 (集_人类)
循环判断首 ()
计次 ＝ 计次 ＋ 1
如果 (计次 ≠ 14)
加入成员 (集_人类, 集_人类 [1])
计次 ＝ 0
调试输出 (“有人被清除，ID：” ＋ 到文本 (集_人类 [1].id) ＋ “          标记：” ＋ 集_人类 [1].标记)
删除成员 (集_人类, 1, 1)
剩余人数 ＝ 取数组成员数 (集_人类)
循环判断尾 (剩余人数 ≠ 1)
调试输出 (“==================== 游 戏 结 束 =====================”)
调试输出 (“最后精英，ID：” ＋ 到文本 (集_人类 [1].id) ＋ “          标记：” ＋ 集_人类 [1].标记)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> .程序集变量 集_人类, 人类, , "0"<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 人口膨胀 (100)<br /> 调试输出 (“初始人数：” ＋ 到文本 (取数组成员数 (集_人类)))<br /> 人类清除计划 (14)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 人口膨胀<br /> .参数 膨胀人数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 temp, 人类<br /> <br /> 清除数组 (集_人类)<br /> .计次循环首 (膨胀人数, i)<br />     temp.id ＝ i<br />     temp.标记 ＝ “第” ＋ 到文本 (i) ＋ “人”<br />     加入成员 (集_人类, temp)<br /> .计次循环尾 ()<br /> <br /> .子程序 人类清除计划<br /> .参数 清除第几人, 整数型<br /> .局部变量 剩余人数, 整数型<br /> .局部变量 计次, 整数型<br /> <br /> 调试输出 (“==================== 游 戏 开 始 =====================”)<br /> 剩余人数 ＝ 取数组成员数 (集_人类)<br /> .循环判断首 ()<br />     计次 ＝ 计次 ＋ 1<br />     .如果 (计次 ≠ 14)<br />         加入成员 (集_人类, 集_人类 [1])<br />     .否则<br />         计次 ＝ 0<br />         调试输出 (“有人被清除，ID：” ＋ 到文本 (集_人类 [1].id) ＋ “          标记：” ＋ 集_人类 [1].标记)<br />     .如果结束<br />     删除成员 (集_人类, 1, 1)<br />     剩余人数 ＝ 取数组成员数 (集_人类)<br /> .循环判断尾 (剩余人数 ≠ 1)<br /> 调试输出 (“==================== 游 戏 结 束 =====================”)<br /> 调试输出 (“最后精英，ID：” ＋ 到文本 (集_人类 [1].id) ＋ “          标记：” ＋ 集_人类 [1].标记)