中国DOS联盟

用100块钱买鸡，价格如下:公:5$, 母:3$, 小:1$两只， 让你求一共多少种买法？
编一个p，怎么编？求教！

Last edited by anqing on 2007-2-7 at 11:46 AM ]

@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 chook=%%i+%%j+%%k

            if !money! equ !chook! if !money! equ 100 (

                set /a num+=1

                echo !num!: %%i+%%j+%%k

            )

        )

    )

)

echo      百钱买百鸡，共有 %num% 种买法。

pause

还得仔细研究版主的p呀

晕，版主贴出来了，并且我发现我把题目看错了。小鸡是1$两只。
不好意思，删了。。。

Last edited by kernelv on 2007-2-6 at 10:41 PM ]

看来越来越多的人喜欢把C语言教程里的例子拿来求批处理代码了。

谁能用vbs写出来？

『第 6 楼』:

谁能用vbs写出来？

最后挺一下

for g=0 to 20

for m=0 to 33

for x=0 to 100 step 2

if 5*g+3*m+1/2*x=100 and g+m+x=100 then 

n=g & "+" & m & "+" & x

s=s & n & vbcrlf

end if

next

next

next

msgbox s

Last edited by jmz573515 on 2007-2-9 at 11:10 AM ]

学习了

c语言里的例子，居然让楼主演的如此漂亮，真是佩服哦。让我长了见识，谢谢楼主了

For i = 0 To 20
For j = 0 To 33
k = 100 - i - j

For i = 0 To 20 Step 2
For j = 0 To 33 Step 2
k = 100 - i - j

If k / 2 + 3 * j + 5 * i = 100 Then
n = i & "+" & j & "+" & k
s = s & n & vbCrLf
End If

Next
Next
For i = 1 To 19 Step 2
For j = 1 To 34 Step 2
k = 100 - i - j

If k / 2 + 3 * j + 5 * i = 100 Then
n = i & "+" & j & "+" & k
s = s & n & vbCrLf
End If

Next
Next

MsgBox s

为啥公鸡得20只以下,母鸡33只以下呢?

公:5$, 母:3$

连条件都没看清楚啊