搜狗做题网vb求约瑟夫问题的求解:有n个人围成一个圈,由第一个人开始报数,数到第k个人,这个人
来源：学生作业帮 编辑：搜狗做题网作业帮 分类：综合作业 时间：2024/06/11 14:17:58
vb求约瑟夫问题的求解:有n个人围成一个圈,由第一个人开始报数,数到第k个人,这个人
好像题目没说完.
再问： 不好意思，太忙了，这个人出圈，再继续数，当报到第k个人又出圈，出圈人的位置不再数，直到只剩一个人，排出出圈人的顺序。
再答： n = Val(InputBox("n=")) k = Val(InputBox("k=")) Dim a() As Integer ReDim a(1 To n) For j = 1 To n a(j) = 1 Next i = 1 Do t = 0 Do Until t >= k If i > n Then i = 1 If a(i) = 1 Then t = t + 1 i = i + 1 Loop a(i - 1) = 0 p = 0 For j = 1 To n If a(j) = 1 Then p = p + 1 Next Loop Until p = 1 For j = 1 To n If a(j) = 1 Then MsgBox "最后一个人是第" & j & "个" Next 我就是这样想的了，变量没定义，自已规范一下
再问： 不好意思，太忙了，这个人出圈，再继续数，当报到第k个人又出圈，出圈人的位置不再数，直到只剩一个人，排出出圈人的顺序。
再答： n = Val(InputBox("n=")) k = Val(InputBox("k=")) Dim a() As Integer ReDim a(1 To n) For j = 1 To n a(j) = 1 Next i = 1 Do t = 0 Do Until t >= k If i > n Then i = 1 If a(i) = 1 Then t = t + 1 i = i + 1 Loop a(i - 1) = 0 p = 0 For j = 1 To n If a(j) = 1 Then p = p + 1 Next Loop Until p = 1 For j = 1 To n If a(j) = 1 Then MsgBox "最后一个人是第" & j & "个" Next 我就是这样想的了，变量没定义，自已规范一下
vb求约瑟夫问题的求解:有n个人围成一个圈,由第一个人开始报数,数到第k个人,这个人
求做一个C语言题目约瑟夫问题.M个人围成一个圈,从第一个人开始报数,数到N的人出圈,再由下一个人开始报数,数到N的人出圈
有N个人围成一个圈顺序编号,从第一个人开始报数（从1到M）,凡报到M的人退出圈子,
用C语言编写：有n个人围成一圈,顺序排号.从第一个人开始报数（从1到3报数）,凡报到3的人退出圈子,请输出报数出列圈及最
约瑟夫问题：M个人围成一圈,从第一个人开始依次从1到N循环报数,每当报数为N时此人出圈,直到剩一人为止
数据结构的题目.用数组和链表存储方式实现约瑟夫问题.约瑟夫问题： n个人围成一个圆圈,首先第一个人从1开始一个人一个人顺
C语言：有n个人围成一圈,按顺序从1到n编号.从第一个人开始报数,报数3的人退出圈子
C语言 有n个人围成一圈,按顺序从1到n编号.从第一个人开始报数,报数3的人退出圈子
N个人围成一个圈顺序编号,从第一个人开始报数（从1到M）,凡报到M的人退出圈子,问最后一个圈中的人的编
2：有n个人围成一圈,顺序排号.从第一个人开始报数（从1到3报数）,凡报到3的人退出圈子,
有n个人围成一圈,顺序排号.从第一个人开始报数(从1到3报数),凡报到3的人退出(pascal
采用链表解决约瑟夫问题：有n个人围坐在一起形成头尾相接的一个环,从第m个人开始报数,每次有人数到r时,