猴子搬香蕉 php,猴子搬香蕉

一个小猴子边上有100根香蕉，它要走过50米才能到家， 每次它最多搬50根香蕉，(多了就被压死了)，它每走1米就要吃掉一根，请问它最多能把多少根香蕉搬到家里。

提示：他可以把香蕉放下往返的走，但是必须保证它每走一米都能有香蕉吃。也可以走到n米时，放下一些香蕉，拿着n根香蕉走回去重新搬50根。

我的推理过程: 以每次小猴子搬最多香蕉为前提, 则100根香蕉需要2趟, 在距离为1米的情况下, 小猴子第1趟搬50根到1米处,消耗1根,带回1根走到原点, 刚好又消耗1根,再将第2趟50根搬到1米处, 这时剩下97根..以此类推, 设当前的总数需要 x 趟才能搬到 1 米, 则消耗的数量为 2x - 1, x 在此题中为 100 / 50 = 2..根据以上关系, 推出下列程序(vbs), 推导结果和网上搜索到的答案是一致的(16根).

Option Explicit

'代码: 萧月痕(xiaoyuehen)

'msn: xiaoyuehen(at)msn.com

'日期: 2006-2-22

Dim intTotal

Dim intEvery

Dim intIndex

Dim intMod

Dim strMessage

intTotal = 110

intEvery = 50

Dim bFlag

bFlag = True

For intIndex = 1 to 50

If intTotal Mod intEvery = 0 Then

intMod = intTotal / intEvery

Else

intMod = intTotal / intEvery + 1

End If

intTotal = intTotal - (2 * intMod - 1)

If (intMod = 1) And (bFlag = True) Then

strMessage = strMessage & "* 走了 " & intIndex & " 米, 还剩香蕉 " & intTotal & " 根" & vbCrLf &

vbCrLf

bFlag = False

End If

Next

strMessage = strMessage & "* 最后还剩香蕉 " & intTotal & " 根"MsgBox strMessage