【2018两会·改革新征程】充分认识中国新型政党制度的优越性

Long_III · 发表于 2025-08-05 09:12

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

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

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

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

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

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

[此贴子已经被作者于2025-08-05 16:30:57编辑过]

UNARTHUR · 发表于 2025-08-05 09:20

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

UNARTHUR · 发表于 2025-08-05 09:30

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

结果可能不同哦

plxmm · 发表于 2025-08-05 10:22

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

[em04]

Long_III · 发表于 2025-08-05 10:25

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

UNARTHUR · 发表于 2025-08-05 10:26

给一个常规思路的代码

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

烟雨厦江南 · 发表于 2025-08-05 12:05

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

有点乱,呵呵

[此贴子已经被作者于2025-08-05 12:29:20编辑过]

lipton · 发表于 2025-08-05 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

[此贴子已经被作者于2025-08-05 12:47:01编辑过]

rylane · 发表于 2025-08-05 17:35

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

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

菱角 · 发表于 2025-08-05 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

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

坐久了脚肿是什么原因	棕色皮鞋配什么颜色裤子	穷途末路什么意思	孕妇低血压什么补最快	什么手机拍照好看
痛经吃什么	下午五点到七点是什么时辰	血亏什么意思	石榴叶子泡水喝有什么功效	吉利丁片是什么东西
执业药师什么时候报名	尿多什么原因	咳嗽白痰是什么原因	藜麦是什么东西	钢琴八级是什么水平
什么体质的人才有季经	为什么新疆人不吃猪肉	什么是柏拉图式的爱情	口加至念什么	6月22日是什么星座

太阳穴长痘痘什么原因hcv9jop6ns3r.cn	22年什么婚hcv9jop5ns7r.cn	肩胛骨麻麻的什么原因hcv8jop7ns6r.cn	低血钾是什么原因引起的cl108k.com	消渴病是什么病hcv8jop1ns9r.cn
卵巢囊肿术后吃什么食物好weuuu.com	臭虫长什么样beikeqingting.com	匿名是什么意思hcv9jop1ns0r.cn	子宫平滑肌瘤什么意思hcv8jop9ns9r.cn	稼字五行属什么hcv8jop7ns5r.cn
艺字五行属什么hcv9jop0ns8r.cn	年轻人头晕是什么原因hcv9jop7ns1r.cn	枫叶的花语是什么ff14chat.com	动土破土是什么意思travellingsim.com	什么是毛囊炎及症状图片hcv7jop4ns6r.cn
大便干燥是什么原因hcv8jop7ns7r.cn	依非韦伦片治什么病的hcv7jop9ns7r.cn	维生素k2是什么hcv8jop0ns4r.cn	peg是什么意思hcv7jop9ns6r.cn	感觉有痰咳不出来是什么原因hcv7jop5ns5r.cn