Office中国论坛/Access中国论坛

标题: 来测智商了 [打印本页]

---

作者: 风中漫步    时间: 2016-3-5 14:02
标题: 来测智商了

扯扯淡

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

---

作者: tmtony    时间: 2016-3-5 17:23
好难啊？我去写ERP了

---

作者: purplerose    时间: 2016-3-5 21:42
太难了，我又不喝啤酒！等王站老师和风中漫步编写出来，我学习一下

---

作者: roych    时间: 2016-3-6 19:11


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

顺序	操作	酒	瓶	盖
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    时间: 2016-3-6 21:39
还是ROYCH 历害了，

---

作者: 风中漫步    时间: 2016-3-7 13:57
站长,purplerose,太幽默了

---

作者: 风中漫步    时间: 2016-3-7 14:02
r神已经列出式子了,究竟对不对呢?

有没有不同答案?

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

---

作者: 风中漫步    时间: 2016-3-12 15:13


我来结了

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))
   

复制代码

---

作者: 风中漫步    时间: 2016-3-12 15:20
[attach]58357[/attach]

---

作者: roych    时间: 2016-3-14 11:34

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

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

---

作者: 风中漫步    时间: 2016-3-14 17:15

roych 发表于 2016-3-14 11:34
所以说嘛，电脑就不会借瓶盖和空瓶。

哪天你没在这,它没借着

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3