数学题求解

02761752696

有10元钱，啤酒2元1瓶，4个酒瓶盖可以换1瓶啤酒，2个空瓶可以换一瓶啤酒
问：一共可得多少瓶啤酒   头晕了

baksy

2个空瓶换来的啤酒喝4个瓶盖换来的啤酒瓶和盖可不可以再次换啤酒？

砂海

02761752696

baksy 发表于 2016-6-27 16:09
2个空瓶换来的啤酒喝4个瓶盖换来的啤酒瓶和盖可不可以再次换啤酒？

都可以继续使用，谢谢老师帮忙看看把

liyh67

酒+瓶+盖=2
瓶=1
盖=0.5
酒=0.5
理论上可以喝到10/0.5=20瓶酒
可以在3楼第7回合以后向别人借1个空瓶、两个瓶盖，继续下面的9——12回合，到最后将剩余的1个空瓶、两个瓶盖还给别人。见下图黄色部分

02761752696

liyh67 发表于 2016-6-27 17:16
酒+瓶+盖=2
瓶=1
盖=0.5

谢谢老师的解答，这是孩子的作业，我算的是15瓶，但是孩子说老师说是20瓶，我算着就头晕了

02761752696

砂海 发表于 2016-6-27 16:12

谢谢老师，我还没明白

雪舞子

02761752696 发表于 2016-6-27 17:24
谢谢老师，我还没明白

递归求解可买啤酒数

1. Sub 换啤酒() 'by xuewuzi
   
2.     Dim pj As Long
   
3.     Const rmb = 10                                   '10元人民币
   
4.     pj = Int(rmb / 2)                                '2元一瓶可买pj数
   
5.     MsgBox "一共可买啤酒数：" & pj + Npj(pj, pj)     '递归求解一共可买啤酒数
   
6. End Sub
   
7. Function Npj(Gpj As Long, Kpj As Long) As Long
   
8.     If Gpj < 4 And Kpj < 2 Then        '不够换递归结束
   
9.         Npj = 0
   
10.     Else
    
11.         m = Int(Gpj / 4) + Int(Kpj / 2)             '可换啤酒数
    
12.         Npj = m + Npj(m + Gpj Mod 4, m + Kpj Mod 2)  '剩余空瓶及盖继续换
    
13.     End If
    
14. End Function

复制代码

蝶·舞

很简单的一个算法，一瓶酒包括：一份酒，一个酒瓶，一个瓶盖
2个酒瓶=1瓶酒，那说明一个酒瓶=2元/2=1元
4个瓶盖=1瓶酒，那说明一个瓶盖=2元/4=0.5元
那么酒的价格= 2元（酒，瓶，盖的合计）-1元（瓶的价格）-0.5元（盖的价格）=0.5元（酒的纯价格）
瓶数=10/0.5=20瓶

雪舞子

8楼代码结果：可买15瓶。

如果从理论上：
1盖+1空瓶+1酒=2元
4盖=2元
2空瓶=2元

求解这个方程可得出“1酒”价值：
即：1酒=0.5元
那么10元就可买：10元/0.5元=20(瓶)