用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世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 百钱买百鸡，共有几种买法
查看 2,741 回复 16
楼 主
百钱买百鸡，共有几种买法
发表于 2007-02-07 10:59 · 中国 吉林 四平 联通
第 2 楼
发表于 2007-02-07 11:36 · 中国 广东 电信
@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
尺有所短，寸有所长，学好CMD没商量。
考虑问题复杂化，解决问题简洁化。
考虑问题复杂化，解决问题简洁化。
第 3 楼
发表于 2007-02-07 11:38 · 中国 吉林 四平 联通
还得仔细研究版主的p呀
第 4 楼
发表于 2007-02-07 11:39 · 中国 北京 联通
晕，版主贴出来了，并且我发现我把题目看错了。小鸡是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 ]
第 5 楼
发表于 2007-02-07 20:55 · 中国 河北 廊坊 三河市 移动
看来越来越多的人喜欢把C语言教程里的例子拿来求批处理代码了。
三人行，必有吾师焉。 学然后知不足，教然后知困，然后能自强也。
第 6 楼
发表于 2007-02-07 22:17 · 中国 吉林 四平 联通
谁能用vbs写出来？
第 7 楼
发表于 2007-02-08 08:55 · 中国 吉林 四平 联通
『第 6 楼』:
谁能用vbs写出来？
最后挺一下
谁能用vbs写出来？
最后挺一下
第 8 楼
发表于 2007-02-10 00:08 · 中国 辽宁 本溪 联通
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 ]
第 9 楼
发表于 2007-02-10 00:32 · 中国 吉林 四平 联通
学习了
第 10 楼
发表于 2007-02-14 07:46 · 中国 浙江 丽水 电信
c语言里的例子，居然让楼主演的如此漂亮，真是佩服哦。让我长了见识，谢谢楼主了
第 11 楼
发表于 2007-02-14 08:13 · 中国 陕西 西安 电信
For i = 0 To 20
For j = 0 To 33
k = 100 - i - j
For j = 0 To 33
k = 100 - i - j
第 12 楼
发表于 2007-02-15 02:46 · 中国 陕西 西安 电信
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
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| anqing | +8 | 2007-02-15 08:02 |
第 13 楼
不好意思-----------------------悄悄问一声
发表于 2007-02-15 06:14 · 中国 四川 绵阳 江油市 电信
为啥公鸡得20只以下,母鸡33只以下呢?
第 14 楼
发表于 2007-02-15 06:27 · 中国 陕西 西安 电信
公:5$, 母:3$
第 15 楼
哦,
发表于 2007-02-15 07:14 · 中国 四川 绵阳 江油市 电信
连条件都没看清楚啊
论坛跳转: