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

Long_III · 发表于 2005-10-18 09:12

方法不限，编程或函数处理皆可。题目要求如下：

10个小孩围成一个圈分糖果，老师分给第一个小孩10块，第二个小孩2块，第三个小孩8块，第四个小孩22块，第五个小孩16块，第六个小孩4块，第七个小孩10块，第八个小孩6块，第九个小孩14块，第十个小孩20块。然后所有的小孩同时将手中的糖果一半给右边的小孩，糖果为奇数的人可向老师要一块。问，经过这样几次后大家手中的糖果的块数一样多？每个人各有多少块？（摘自电脑报）

本题基础分1分，思路优者加1分。

“同时……给右边”是指第一个给第二个的同时，第二个要给第三个，……一致到最后一个，也是

附：下周一（20051024）进行总结，到时需要加分的我会向版主申请，谢谢大家的参与！

公布答案： jP6hi1dA.rar (7.99 KB, 下载次数: 200)

[此贴子已经被作者于2005-11-18 16:30:57编辑过]

UNARTHUR · 发表于 2005-10-18 09:20

有意思！这真是是锻炼编程技巧的好题目

UNARTHUR · 发表于 2005-10-18 09:30

这个“给右边”恐怕需要明确一下，比如是第一个给第10个还是反过来？

结果可能不同哦

plxmm · 发表于 2005-10-18 10:22

有个问题不太明白：【所有的小孩同时将手中的糖果一半给右边的小孩】。是在没有得到上一个人的糖果的情况下，以自己手中的糖数分一半给下一个小孩？

[em04]

Long_III · 发表于 2005-10-18 10:25

回plxmm，是的，是同时给的，也就是他没有收到别人给的之前，自己的一半就给别人了

UNARTHUR · 发表于 2005-10-18 10:26

给一个常规思路的代码

T0eLTIwm.txt (788 Bytes, 下载次数: 131)

烟雨厦江南 · 发表于 2005-10-18 12:05

hQhy8RAD.rar (7.15 KB, 下载次数: 81)

有点乱,呵呵

[此贴子已经被作者于2005-10-18 12:29:20编辑过]

lipton · 发表于 2005-10-18 16:51

支持一下

szbT3J6j.txt (1.07 KB, 下载次数: 56)

我的结果差啊

If Int(arr2(x1) / 2) <> arr2(x1) / 2 Then arr2(x1) = arr2(x1) + 1 '判断奇偶

If arr2(x1)\ 2 <> arr2(x1) / 2 Then arr2(x1) = arr2(x1) + 1 '后来想到的判断奇偶方法

if arr2(x1) mod 2 <> 0 Then arr2(x1) = arr2(x1) + 1 'Mod很早以前用过，想用时脑子短路了。

If arr1(1) = arr2(2) And arr1(1) = arr1(3) And _ arr1(1) = arr1(4) And arr1(1) = arr1(5) And _ arr1(1) = arr1(6) And arr1(1) = arr1(9) And _ '<<==少了arr1(1) = arr1(7) And arr1(1) = arr1(8 And ‘结果是谬之千里 arr1(1) = arr1(10) Then Exit Do

[此贴子已经被作者于2005-10-27 12:47:01编辑过]

rylane · 发表于 2005-10-18 17:35

M1KnUP8O.rar (4.73 KB, 下载次数: 80)

首先想到用函数，其它的晚上再看

菱角 · 发表于 2005-10-18 22:29

献丑了

得一分

Option Explicit

Dim Rng As Range

Sub iQeQ()

Dim k As Integer

Dim i As Integer

Set Rng = Sheet1.Range("a1:a10")

i = 10

k = 0

Do Until i = 0

i = 0

shftIt i

k = k + 1

Loop

MsgBox (k - 1) & " times to value:" & Range("a1")

End Sub

Sub shftIt(i As Integer)

Dim cel As Range

Dim Ncel As Range

Dim valOld As Integer

Dim valTmp As Integer

valOld = Rng.Cells(1) / 2

For Each cel In Rng

Set Ncel = cel.Offset(1, 0)

If Ncel.Row > 10 Then Set Ncel = Rng.Cells(1)

valTmp = Ncel.Value / 2

Ncel = valTmp + valOld

valOld = valTmp

If Ncel Mod 2 Then Ncel = Ncel + 1

If valOld * 2 <> Ncel.Value Then i = i + 1

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

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