百钱买百鸡（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
