[追加新题]刚刚看到个数学题，新人来做做吧，呵呵

jhun

1、某车棚存有自行车和三轮车共65辆，它们的轮子数合计为150个。求该棚内存有的自行车和三轮车各是多少辆？
哈哈，看到大家这么踊跃，再来点吧
2、36个人36块砖，男人搬4快，女人搬3块，小孩2个人搬一块砖。一次搬完，没有闲着的人，求男人，女人，小孩的人数
3、若干个人共同买羊，如果每人出5元，还差45元；如果每人出7元，还差3元，求买羊人数和羊价。
4、有奇数块石头沿直线线每隔一米放一块，要把石头集中在最中间的位置上从最右边的石头开始，按顺序每次只能搬一块石头。如果某人用这样办法搬石头，除了中间的石头外把其余的石头向中间集中，共走了300米，问一共放了多少石头？
5、国庆长假甲、乙两人去沙漠中探险，他们每天向沙漠深处走20千米，已知每人最多可带一个人4天的食物和水。如果允许将部分食物存放于途中，其中1人最远可深入沙漠多少千米？（要求最后两人返回出发点）

jhun

游客，如果您要查看本帖隐藏内容请回复

Ziya

学习下算法

fightsky

看看看看看

3mile

呵呵，有点类似百鸡问题。

游客，如果您要查看本帖隐藏内容请回复

fightsky

这位朋友写得很不错

fightsky

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
这样子更加简单

fightsky

For $y=0 To $a/3

fightsky

这样子改 随便赚钱

3mile

回复 9# fightsky
给你出道类似的题：
我国古代数学家张丘建在《张丘建算经》一书中提出了“百鸡问题”：鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一。百钱买百鸡，问鸡翁、鸡母、鸡雏各几

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

fightsky

3元一次方程组

fightsky

我喜欢2楼的思维简单，仁兄思维很活跃，上述脚本还需要改进，如果输入钱是小数点的话那就错误了哈哈

zcx880517

前来学习的。。

简单小屋

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);