来测智商了

风中漫步

扯扯淡

2元1瓶啤酒,4个瓶盖可以换1瓶啤酒,2个空瓶也可以换1瓶啤酒,编程求解:10元可以喝几瓶啤酒?

tmtony

好难啊？我去写ERP了

purplerose

太难了，我又不喝啤酒！等王站老师和风中漫步编写出来，我学习一下

roych

好了。站长有时间就写程序吧：

顺序	操作	酒	瓶	盖
1	10元买酒	5	5	5
2	4空瓶换酒	5+2=7	2+1=3	2+5=7
3	2空瓶换酒	7+1=8	1+1=2	7+1=8
4	2空瓶换酒	8+1=9	1	8+1=9
5	4瓶盖换酒	9+1=10	1+1=2	5+1=6
6	4瓶盖换酒	10+1=11	2+1=3	2+1=3
7	2空瓶换酒	11+1=12	1+1=2	3+1=4
8	2空瓶换酒	12+1=13	1	4+1=5
9	4瓶盖换酒	13+1=14	1+1=2	1+1=2
10	2空瓶换酒	14+1=15	1	2+1=3
---	如果可以赊欠空瓶或者瓶盖	----	----	----
11	赊欠1盖，换酒	15+1=16	1+1=2	1
12	2空瓶换酒	16+1=17	1	1+1=2
13	赊欠1瓶	17+1=18	1	2+1=3
14	赊欠1盖	18+1=19	1+1=2	1
15	2空瓶换酒	19+1=20	1	2
16	还2盖1瓶	20	0	0

purplerose

还是ROYCH 历害了，

风中漫步

站长,purplerose,太幽默了

风中漫步

r神已经列出式子了,究竟对不对呢?

有没有不同答案?

编程求解,现在无码.谁来验证一下.

风中漫步

我来结了

1.   dim i as integer,a as integer
   
2.   i=2:a=5
   
3.   while i<=a
   
4.     if i mod 4=0 then a=a+2 else a=a+1
   
5.     i=i+2
   
6.   wend
   
7.   msgbox(str$(a))
   

复制代码

风中漫步

roych

风中漫步 发表于 2016-3-12 15:20

所以说嘛，电脑就不会借瓶盖和空瓶。