批处理之家 - Powered by Discuz! Board

标题: [数值计算] [讨论]百钱买百鸡 [打印本页]

作者: novaa 时间: 2007-11-27 14:35 标题: [讨论]百钱买百鸡

用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 时间: 2007-11-27 14:50

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

作者: novaa 时间: 2007-11-27 16:47

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

作者: youxi01 时间: 2007-11-27 17:29

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

作者: novaa 时间: 2007-11-27 18:36

是啊
一元两个啊！
呵呵

作者: youxi01 时间: 2007-11-27 20:22

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

作者: novaa 时间: 2007-11-27 20:54

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

作者: youxi01 时间: 2007-11-28 15:57 标题: 回复 1# 的帖子

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

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

作者: novaa 时间: 2007-11-28 16:51

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

作者: zhouyongjun 时间: 2008-12-4 12:23

'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
复制代码

欢迎光临批处理之家 (http://bathome.net./)