中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-04 00:02

共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行

DOS批处理 & 脚本技术（批处理室） » 百钱买百鸡，共有几种买法

可打印版本　2,743 / 16

第1楼　anqing	发表于 2007-02-07 10:59
高级用户　发帖 413　积分 859
百钱买百鸡，共有几种买法用100块钱买鸡，价格如下:公:5$, 母:3$, 小:1$两只，让你求一共多少种买法？编一个p，怎么编？求教！ [ Last edited by anqing on 2007-2-7 at 11:46 AM ]

第2楼　namejm	发表于 2007-02-07 11:36
荣誉版主　发帖 1,737　积分 5,226　来自成都
@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

第3楼　anqing	发表于 2007-02-07 11:38
高级用户　发帖 413　积分 859
还得仔细研究版主的p呀

第4楼　kernelv	发表于 2007-02-07 11:39
初级用户　发帖 24　积分 47
晕，版主贴出来了，并且我发现我把题目看错了。小鸡是1$两只。不好意思，删了。。。 [ Last edited by kernelv on 2007-2-6 at 10:41 PM ]

第5楼　ccwan	发表于 2007-02-07 20:55
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
看来越来越多的人喜欢把C语言教程里的例子拿来求批处理代码了。

第6楼　anqing	发表于 2007-02-07 22:17
高级用户　发帖 413　积分 859
谁能用vbs写出来？

第7楼　anqing	发表于 2007-02-08 08:55
高级用户　发帖 413　积分 859
『第 6 楼』: 谁能用vbs写出来？最后挺一下

第8楼　jmz573515	发表于 2007-02-10 00:08
银牌会员　发帖 464　积分 1,212
for g=0 to 20 for m=0 to 33 for x=0 to 100 step 2 if 5g+3m+1/2x=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楼　anqing	发表于 2007-02-10 00:32
高级用户　发帖 413　积分 859
学习了

第10楼　dglsy	发表于 2007-02-14 07:46
初级用户　发帖 20　积分 39
c语言里的例子，居然让楼主演的如此漂亮，真是佩服哦。让我长了见识，谢谢楼主了

第11楼　slore	发表于 2007-02-14 08:13
铂金会员　发帖 2,478　积分 5,212
For i = 0 To 20 For j = 0 To 33 k = 100 - i - j

第12楼　slore	发表于 2007-02-15 02:46
铂金会员　发帖 2,478　积分 5,212
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

第13楼　qingfushuan	发表于 2007-02-15 06:14
高级用户　发帖 327　积分 502
不好意思-----------------------悄悄问一声为啥公鸡得20只以下,母鸡33只以下呢?

第14楼　slore	发表于 2007-02-15 06:27
铂金会员　发帖 2,478　积分 5,212
公:5$, 母:3$

第15楼　qingfushuan	发表于 2007-02-15 07:14
高级用户　发帖 327　积分 502
哦, 连条件都没看清楚啊

1 2 　下一页

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023