[开_60] “分糖果”游戏（已公布答案）

shuyee · 发表于 2005-10-20 08:13

我的解法就是一个数组啊.

qee用 · 发表于 2005-10-23 14:12

我也来凑下热闹： Sub Qee() Dim i% Dim Chg As Boolean Dim Tm As Integer '交换次数 Dim Arr(1 To 10) As Integer, ATmp1 As Integer, Atmp2 As Integer Arr(1) = 10: Arr(2) = 2: Arr(3) = 8: Arr(4) = 22: Arr(5) = 16 Arr(6) = 4: Arr(7) = 10: Arr(8) = 6: Arr(9) = 14: Arr(10) = 20 Tm = 0 Do Chg = False '是否发生交换 ATmp1 = Arr(10) For i = 1 To 10 Atmp2 = Arr(i) If Arr(i) <> ATmp1 Then '判断是否有交换，当没有交换时说明每人糖果相等，退出循环，显示结果 Arr(i) = (Arr(i) + ATmp1) / 2 Chg = True End If ATmp1 = Atmp2 Next i If Chg Then Tm = Tm + 1 For i = 1 To 10 If Arr(i) Mod 2 Then Arr(i) = Arr(i) + 1 Next i End If Loop While Chg Debug.Print Tm, Arr(1) '显示结果为需16次交换后，每人18块糖果 End Sub

lg_cai · 发表于 2005-10-24 16:09

Sub aa() Dim Arr(1 To 10) Arr(1) = 10: Arr(2) = 2: Arr(3) = 8: Arr(4) = 22: Arr(5) = 16 Arr(6) = 4: Arr(7) = 10: Arr(8) = 6: Arr(9) = 14: Arr(10) = 20 j = 0 Do bz = False tmp = Arr(10) For i = 10 To 1 Step -1 If i > 1 Then Arr(i) = (Arr(i) + Arr(i - 1)) / 2 Else Arr(i) = (Arr(i) + tmp) / 2 Arr(i) = Arr(i) + Arr(i) Mod 2 If Arr(i) <> Arr(IIf(i < 10, i + 1, i)) Then bz = True Next i j = j + 1 Loop While bz MsgBox (j) End Sub

[此贴子已经被作者于2005-10-24 16:35:53编辑过]

Long_III · 发表于 2005-10-25 17:29

不好意思，昨天网络断了，没总结，今天太忙了。有空一定做一个好的总结！

playgirl · 发表于 2005-10-26 09:07

给一个函数的。

WZxgFxgF.rar (7.2 KB, 下载次数: 39)

yangking · 发表于 2005-11-13 17:29

不好意思，借用了七楼老兄界面

改用了函数

gJ6L2G9m.rar (8.45 KB, 下载次数: 36)

Long_III · 发表于 2005-11-18 16:31

VBA斑竹不在，也不知咋加分，所以本贴回答的优秀答案暂时保留加分的权力！1楼已公布答案

账房先生 · 发表于 2006-9-5 12:58

10 2 8 22 16 4 10 6 14 20

16 6 6 16 20 10 8 8 10 18

18 12 6 12 18 16 10 8 10 14

18 16 10 10 16 18 14 10 10 12

16 18 14 10 14 18 16 12 10 12

14 18 16 12 12 16 18 14 12 12

14 16 18 14 12 14 18 16 14 12

14 16 18 16 14 14 16 18 16 14

14 16 18 18 16 14 16 18 18 16

14 16 18 18 18 16 16 18 18 18

16 16 18 18 18 18 16 18 18 18

18 16 18 18 18 18 18 18 18 18

18 18 18 18 18 18 18 18 18 18

原答案有误？

jsxjd · 发表于 2013-5-5 13:48

ceiling(average(),2)

teliiss · 发表于 2013-7-6 12:04

相隔8年，今天偶然看到，在未看答案前，只按文字说明试着做了一下，当练习。

Book1.rar (3.99 KB, 下载次数: 29)

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

[Excel 程序开发] [开_60] “分糖果”游戏（已公布答案）