用100块钱买鸡，价格如下:公:5$, 母:3$, 小:1$两只， 让你求一共多少种买法？
编一个p，怎么编？求教！
[ Last edited by anqing on 2007-2-7 at 11:46 AM ]
编一个p，怎么编？求教！
[ Last edited by anqing on 2007-2-7 at 11:46 AM ]
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
百钱买百鸡，共有几种买法
标题：百钱买百鸡，共有几种买法
@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 ]
不好意思，删了。。。
[ Last edited by kernelv on 2007-2-6 at 10:41 PM ]
看来越来越多的人喜欢把C语言教程里的例子拿来求批处理代码了。
谁能用vbs写出来？
『第 6 楼』:
谁能用vbs写出来？
最后挺一下
谁能用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 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
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$
连条件都没看清楚啊
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
12楼的代码，精简了，一个for，效率大增。加分
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
12楼的代码，精简了，一个for，效率大增。加分
为什么会有0呢? 不应该都大于0?
来源：https://www.cn-dos.net/forum/viewthread.php?tid=27488 · 打印时间 2026-08-03 20:40