书上看见一个小题目【百钱买百鸡】，考考大家!

Xi-zhang · 发表于 2004-11-21 21:08

还有一种可能，不知道算不算

公鸡 0

母鸡 25

小鸡 75

kissyou · 发表于 2004-11-22 08:59

Public Sub BaiJi() Dim x As Integer '公鸡数量为x Dim y As Integer '母鸡数量为y,则小鸡为100-x-y For x = 1 To 100 For y = 1 To 100 If 5 * x + 3 * y + 1 / 3 * (100 - x - y) = 100 Then Debug.Print "x=" & x; "y=" & y; "Z=" & (100 - x - y) End If Next y Next x End Sub

kissyou · 发表于 2004-11-22 09:01

这样可能会好些:

Public Sub BaiJi() Dim x As Integer '公鸡数量为x Dim y As Integer '母鸡数量为y,则小鸡为100-x-y For x = 1 To 100 For y = 1 To 100 If 5 * x + 3 * y + 1 / 3 * (100 - x - y) = 100 Then Debug.Print "公鸡=" & x; "母鸡=" & y; "小鸡=" & (100 - x - y) End If Next y Next x End Sub

hzg7818 · 发表于 2004-5-22 08:25

这个问题是学习使用循环的好示例，一般的程序入门书籍都会用到，比如水仙花数等等都是这个意思

gdliyy · 发表于 2006-9-17 01:41

今天突然看到，这个解法是用循环引用来解的：）

Cg1jakbK.rar (2.84 KB, 下载次数: 129)

清风_ll · 发表于 2006-9-17 10:21

晕,怎么都没有这个结果?

[此贴子已经被作者于2006-9-17 10:44:25编辑过]

gdliyy · 发表于 2006-9-17 11:07

清风兄在约束中还忽略了一个条件：
1、$C$1=100-$C$2-$C$3
2、另外，C1:C3是否应该是>=1？

清风_ll · 发表于 2006-9-17 11:11

QUOTE:

以下是引用gdliyy在2006-9-17 11:07:00的发言：

清风兄在约束中还忽略了一个条件：
1、$C$1=100-$C$2-$C$3
2、另外，C1:C3是否应该是>=1？

汗,忽略了,0好象题目中也没说不可以.修改C2:C4约束值可得出不同解[em04]

[此贴子已经被作者于2006-9-17 11:25:02编辑过]

pst168 · 发表于 2009-9-3 14:35

我的EXCEL菜单中为何没看到规划求解, 在哪里可以用到?

zgzzsn · 发表于 2012-12-28 11:38

规划求解也可

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