百钱买百鸡（vbs写的算法）(原创)

在我国的数学经典著作"九章算术"中有这样一道题:百钱买百鸡, 公鸡5钱一只, 母鸡3钱一只, 小鸡1钱3只)求得是能有多少种办法买这些鸡.
如果看不懂的话我用大白话说说:有人要去买鸡, 用100块钱正好买了100只鸡, 价格如下:公:5$, 母:3$, 小:1$ for 3,
让你求一共多少种卖法(公母小怎么搭配). 请用循环解决这个问题.

vbs代码如下：

 1 dim gjgs,mjgs,xjgs
 2 const zqs = 100
 3 const zjs = 100
 4 const gjjg = 5 
 5 const mjjg = 3 
 6 const xjjg = 1'xjge必须是三的倍数
 7 
 8 dim maxgj,maxmj
 9 
10 maxgj = int(zqs/gjjg)
11 maxmj = int(zqs/mjjg)
12 
13 for gjgs = 0 to maxgj
14 
15     if (zjs-gjgs) < maxmj then
16 
17         for mjgs =0 to zjs -gjgs
18             
19             for xjgs = 0*3 to zjs - gjgs-mjgs
20                 if ((gjgs + mjgs + xjgs) =zjs)and((gjgs * gjjg +mjgs*mjjg +xjgs/3)=zqs) then
21                     zfc = "公鸡个数：" & gjgs & VbCrLf & "母鸡个数：" & mjgs &VbCrLf & "小鸡个数：" & xjgs
22                     msgbox zfc
23 
24                 end if
25             next
26         next
27     else
28 
29         for mjgs = 0 to maxmj
30             for xjgs = 0*3 to zjs - gjgs-mjgs
31                 if ((gjgs + mjgs + xjgs) =zjs)and((gjgs * gjjg +mjgs*mjjg +xjgs/3)=zqs) then
32                     zfc = "公鸡个数：" & gjgs & VbCrLf & "母鸡个数：" & mjgs &VbCrLf & "小鸡个数：" & xjgs
33                     msgbox zfc
34                 end if
35             next
36         next
37     end if
38 next

 

转载于:https://www.cnblogs.com/lztx/archive/2012/05/19/2508829.html