Re: [問題] 環狀與點名
看板puzzle (益智遊戲 - 數獨,拼圖,推理,西洋棋)作者jurian0101 (小維)時間16年前 (2010/02/14 15:07)推噓1(1推 0噓 0→)留言1則, 1人參與討論串2/2 (看更多)
新年快樂
Private Sub UserForm_Click()
Dim player(0 To 999) As Boolean
Dim remain As Integer
remain = 1000
Count = 6
num = 0
Do While remain > 1
Do While Count > 0
Do While player(num) = True
num = (num + 1) Mod 1000
Loop
Count = Count - 1
num = (num + 1) Mod 1000
Loop
Do While player(num) = True
num = (num + 1) Mod 1000
Loop
remain = remain - 1
player(num) = True
Count = 6
Txt1.Text = Txt1.Text + Str(num)
num = (num + 1) Mod 1000
Loop
Form1.Caption = Str(num)
End Sub
= = = = = = = = = = = = = = = = = = = = = = = = =
執行結果是 297。 我記得在《具體數學》裡面有這個問題的完整討論。
PS.推文裡的約瑟夫請見書
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.164.17.144
推
02/14 20:25, , 1F
02/14 20:25, 1F
討論串 (同標題文章)
puzzle 近期熱門文章
5
21
PTT遊戲區 即時熱門文章
