[数值计算] [讨论]百钱买百鸡

novaa

用100块钱买鸡，价格如下:公:5$, 母:3$, 小:1$两只，一共多少种买法？
BAT版

@echo off
setlocal enabledelayedexpansion
for /l %%i in (0,1,20) do (
for /l %%j in (0,1,33) do (
for /l %%k in (0,2,100) do (
set /a Money=5*%%i+3*%%j+%%k/2
set /a Sum=%%i+%%j+%%k
if !Money! equ 100 if !Money! equ !Sum! (
set /a num+=1
echo 方法!num!: 公鸡:%%i+母鸡:%%j+小鸡:%%k
)
)
)
)
pause>nul
复制代码

开始学习VBS所以来个VBS版
VBS版

dim Money,Sum
for g=0 to 20
for m=0 to 33
for x=0 to 100
Money=5*g+3*m+x/2
Sum=g+m+x
if Money=100 and Sum=100 then
msgbox(g)
msgbox(m)
msgbox(x)
end if
next
next
next
复制代码

[ 本帖最后由 novaa 于 2007-11-27 16:46 编辑 ]

youxi01

给题目 一个详细点的说明吧?!

novaa

是网速问题，我以为成功了。
郁闷

youxi01

根据你的代码的意思,似乎小鸡0.5元一个哦

novaa

是啊
一元两个啊！
呵呵

youxi01

那你的题目怎么说是 1元/个

novaa

YOUXI这么这么马虎啊
我写的是1￥两个好不
YOUXI心态貌似不太好

youxi01

看你的代码,对 程序代码(思路) 做过一定的处理了
但是对于第三个for循环,何不用for ....(48 2 100)呢?

当然,如果先用逻辑来算,代码还可以精简，速度可以更快

novaa

额
是，不过for(48 2 100)不好想到啊
呵呵

zhouyongjun

'x：公鸡，y：母鸡，小鸡：z
dim x,y,z
n=0
for x=0 to 24
    for y=0 to 33
        for z=0 to 100
            if x+y+z=100 and 5*x+3*y+0.5*z=100 then
              n=n+1
              msgbox("第"&n&"组答案:"&"  "&x&"  "&y&"  "&z)
            end if
         next
     next
next
复制代码