猴子选大王

爱疯 · 发表于 2012-7-10 09:29

本帖最后由爱疯于 2012-8-30 11:23 编辑

n只猴子围坐成一个圈，按顺时针方向从1到n编号。然后从1号猴子开始沿顺时针方向从1开始报数，报到m的猴子出局，再从刚出局猴子的下一个位置重新开始报数，如此重复，直至剩下一个猴子，它就是大王。设计并编写程序，实现如下功能：

（1）要求由用户输入开始时的猴子数n、报数的最后一个数m。
（2）给出当选猴王的初始编号。

PS:个人不希望因为好奇，把本来有意义的贴，弄得都是“看看”这样的回复。希望回复采用公开方式。

liuguansky · 发表于 2012-7-10 19:29

本帖最后由 liuguansky 于 2012-7-13 09:27 编辑 <DIV class=blockcode> </DIV>
<DIV class=blockcode>
<BLOCKQUOTE>Sub Just()     Dim i&, D As New Dictionary, M&, N&, Ar, Arr() As Long, K As Long     N = Application.InputBox("Total of Monkeys", , 100, , , , , 1)     M = Application.InputBox("Number of Ticking", , 20, , , , , 1)     For i = 1 To N         D.Add i, ""     Next i     ReDim Arr(1 To M)     Do While D.Count > 1         Ar = D.Keys: N = D.Count         For i = M To N Step M             D.Remove Ar(i - 1)         Next i         K = N Mod M         For i = N + 1 - K To N             Arr(N + 1 - i) = Ar(i - 1)         Next i         Ar = D.Keys: N = D.Count         For i = K + 1 To M             Arr(i) = Ar((i - K - 1) Mod N)         Next i         D.Remove Arr(M)     Loop     MsgBox D.Keys(0) End Sub</BLOCKQUOTE></DIV>

赤寮张氏 · 发表于 2012-7-13 09:15

学习高手解题

杨晨 · 发表于 2012-8-30 10:59

这个程序运行出错，原因是D As New Dictionary这句好像说没有定义，这个是字典功能，还没有学习，渐渐学习吧

yangyangzhifeng · 发表于 2014-7-22 10:55

Sub demo() '循环链表实现
Dim t0&, t&, p(), i&, k&, n&, m&
n = Application.InputBox("Total of Monkeys", , 100, , , , , 1)
m = Application.InputBox("Number of Ticking", , 20, , , , , 1)
If n * m <= 0 Then Exit Sub
k = n: ReDim p(1 To n)
For i = 1 To n - 1
p(i) = i + 1
Next
p(i) = 1
t0 = n
Do Until k = 1
For i = 1 To m
t = p(t0)
If i = m Then Exit For
t0 = t
Next
p(t0) = p(t)
t0 = t
k = k - 1
Loop
MsgBox p(t0)
End Sub

复制代码

ldxhzy · 发表于 2014-7-24 14:17

Sub 猴王编号()
Dim N As Long, M As Long
Dim I As Long, J As Long
Dim Sou()
N = InputBox("请输入猴子总数：", , 10)
M = InputBox("排除报数为几的猴子：", , 15)
ReDim Sou(1 To N)
For I = 1 To N '给每个猴子编号
      Sou(I) = I
Next I
Rem 思路：数到 M 的猴子，其对应的数组元素，将其后面的数组元素依次向前移一位，并将最后一个元素删除
J = 0
Do
      If UBound(Sou) > 1 Then '剩下的猴子数大于1 ，继续报数
         For I = 1 To M
            J = J + 1
            If J > UBound(Sou) Then '数到最后一个了，开始下一圈
                  J = 1
            End If
         Next I
         Rem 此时,编号为 J 的猴子数到 M ，应排除，将后面的猴子往前移一位，数组的最后一个元素删除
         If J = UBound(Sou) Then  '若正好最后的猴子数到 M ，直接排除
            ReDim Preserve Sou(1 To UBound(Sou) - 1)
         Else  '将后面的猴子往前移一位
            For I = J To UBound(Sou) - 1
                  Sou(I) = Sou(I + 1)
            Next I
            J = J - 1 '后面的猴子往前移一位了，相应的，J 应该减 1
            ReDim Preserve Sou(1 To UBound(Sou) - 1)
         End If
      Else
         MsgBox "猴王的编号是：" & Sou(1)  '只剩下一个猴子时，其编号即为所求结果
         Exit Do
      End If
Loop
End Sub

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

猴子选大王

相关帖子