[追加新题]刚刚看到个数学题，新人来做做吧，呵呵
本帖最后由 jhun 于 2010-7-27 16:18 编辑1、某车棚存有自行车和三轮车共65辆，它们的轮子数合计为150个。求该棚内存有的自行车和三轮车各是多少辆？
哈哈，看到大家这么踊跃，再来点吧
2、36个人36块砖，男人搬4快，女人搬3块，小孩2个人搬一块砖。一次搬完，没有闲着的人，求男人，女人，小孩的人数
3、若干个人共同买羊，如果每人出5元，还差45元；如果每人出7元，还差3元，求买羊人数和羊价。
4、有奇数块石头沿直线线每隔一米放一块，要把石头集中在最中间的位置上从最右边的石头开始，按顺序每次只能搬一块石头。如果某人用这样办法搬石头，除了中间的石头外把其余的石头向中间集中，共走了300米，问一共放了多少石头？
5、国庆长假甲、乙两人去沙漠中探险，他们每天向沙漠深处走20千米，已知每人最多可带一个人4天的食物和水。如果允许将部分食物存放于途中，其中1人最远可深入沙漠多少千米？（要求最后两人返回出发点） **** Hidden Message ***** 学习下算法 看看看看看 本帖最后由 3mile 于 2010-7-23 14:01 编辑
呵呵，有点类似百鸡问题。
**** Hidden Message ***** 这位朋友写得很不错 Match()
Func Match()
$a = InputBox("请输入轮子总数","三轮车和自行车轮子总数","")
Local $x,$y,$j,$Result
For $x=0 To $a/2
For $y=0 To $a/2
$j=$x*2+$y*3
If $j=$a Then
$Result&="自行车有："&$x&"辆"&@TAB&"三轮车有："&$y&"辆"&@CRLF
EndIf
Next
Next
MsgBox(0,0,$Result)
EndFunc
这样子更加简单 For $y=0 To $a/3 这样子改 随便赚钱 回复 9# fightsky
给你出道类似的题：
我国古代数学家张丘建在《张丘建算经》一书中提出了“百鸡问题”：鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一。百钱买百鸡，问鸡翁、鸡母、鸡雏各几 仁兄我刚吃完饭就让我做这种题目
Match()
Func Match()
$a = InputBox("请输入钱总数","你有多少钱","")
Local $x,$y,$z,$j,$Result
For $x=0 To $a/5
For $y=0 To $a/3
for $z=0 To $a/1
$j=$x*5+$y*3+$z*1
If $j=$a Then
$Result&="鸡1： "&$x&"只 "&@TAB&"鸡2： "&$y&"只 "&@TAB&"鸡3： "&$z&"只 "&@CRLF
EndIf
Next
Next
Next
MsgBox(0,0,$Result)
EndFunc 3元一次方程组 我喜欢2楼的思维简单，仁兄思维很活跃，上述脚本还需要改进，如果输入钱是小数点的话那就错误了哈哈 前来学习的。。 Dim $a1="",$a2,$a3;
For $a2=0 To 65
For $a3=0 To 50
If $a2+$a3=56 And $a2*2+$a3*3=150 Then
$a1&="有"&$a2&"两轮车，"&$a3&"辆三轮车"&@CRLF
EndIf
Next
Next
MsgBox(0,"有下列几种可能",$a1);