[开_84]最后一个珠子的号码是？

qlz110 · 发表于 2006-2-16 23:36

不论是正式竞赛区还是公开竞赛区，程序类题目比较少，我想把我的思路提供给大家，看看能不能编成程序。我不懂VBA，所以无法提供答案。

　　题目：有一个和尚，他有两串佛珠，每串七七49颗，都按1~49的顺序编号，他念经有个怪癖，他每天念经前要把其中一串佛珠拆开散放进一个纸箱。摇一摇后从中摸出一颗珠子，看看上面的号码，比如说是23号，然后拿起另一串佛珠从第1号开始数，数到第23颗珠子（即23号珠子）便把它拿出来，接着又24号珠子开始数，数到第23颗（即46号珠子）时也把它拿出来，接着又从47号珠子开始数，数到第23颗（即20号珠子，因为珠子串成一串，49号与1号是连着的）时也把它拿出来，接着又从21号珠子开始数，数到第23颗（即44号珠子，注意，23号珠子原先已经被拿出，所以到44号）也把它拿出来，。。。。。。如此循环，每数到第23颗都要拿出来，即使最后珠子不足23颗，也要在剩下的珠子继续循环，直到剩下最后一颗。现在和尚想知道，当他每天从摇一摇后的纸箱里摸出一颗珠子（如上面的23号珠子），重复上面的做法后，最后剩下的那个珠子的号码是多少？你能告诉他吗？请大家编程帮他解决。

Long_III · 发表于 2006-2-17 15:32

支持楼主的问题！我的答案是34

代码如下： 5ck0SLLj.txt (615 Bytes, 下载次数: 194)

qlz110 · 发表于 2006-2-17 15:51

以下是引用Long_III在2006-2-17 15:32:47的发言：

支持楼主的问题！我的答案是34

代码如下：

结果正确，龙三兄真是厉害啊！

shuyee · 发表于 2006-2-17 16:21

偶是半路出家,底子薄,边界处理,搞得我一鼻子灰.还是公式来得快,当然,也可能是因先用vba解了的缘故.总之,我这个vba的方法比较那个....

66LMZCFK.rar (10.4 KB, 下载次数: 75)

qlz110 · 发表于 2006-2-17 16:29

以下是引用shuyee在2006-2-17 16:21:50的发言：

偶是半路出家,底子薄,边界处理,搞得我一鼻子灰.还是公式来得快,当然,也可能是因先用vba解了的缘故.总之,我这个vba的方法比较那个....

哇噻，shuyee兄还能用函数解出来，佩服佩服！

Long_III · 发表于 2006-2-17 18:01

根据楼主后来给的短消息，这样可以吗

79zhcE2P.rar (8.87 KB, 下载次数: 46)

cxjsjt · 发表于 2006-2-17 18:29

nS7Md18r.rar (8.3 KB, 下载次数: 52)
应该还行。

qlz110 · 发表于 2006-2-17 19:21

要的就是cxjsjt兄附件的效果，而且代码很简洁。

呵呵，龙三兄把所有结果都列出来了，一劳永逸。

谢谢两位，向你们学习编程知识及技巧。

sandyw · 发表于 2006-2-18 04:58

刚跟朋友喝完酒回来，睡不着就上来看看，搞了一下，没有检验，不知道对不对，请各位老师批评指正。

4dVEyYFl.rar (11.63 KB, 下载次数: 28)

[此贴子已经被作者于2006-2-18 5:08:14编辑过]

qlz110 · 发表于 2006-2-18 13:01

以下是引用sandyw在2006-2-18 4:58:36的发言：

刚跟朋友喝完酒回来，睡不着就上来看看，搞了一下，没有检验，不知道对不对，请各位老师批评指正。

sandyw兄真是性情中人，喝完酒还有心情玩这个。

经检验，结果不对嗬，请再检查检查。不过计算的过程倒蛮有趣的。

		自动登录	找回密码
密码			免费注册

[Excel 程序开发] [开_84]最后一个珠子的号码是？

再送一个公式解法.

不知道我的对不对，我没有检验过！