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

jhun · 发表于 2010-7-23 10:29:55

本帖最后由 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人最远可深入沙漠多少千米？（要求最后两人返回出发点）

jhun · 发表于 2010-7-23 10:31:45

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

Ziya · 发表于 2010-7-23 10:43:20

学习下算法

fightsky · 发表于 2010-7-23 11:06:16

看看看看看

3mile · 发表于 2010-7-23 11:10:57

本帖最后由 3mile 于 2010-7-23 14:01 编辑

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

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

fightsky · 发表于 2010-7-23 11:32:17

这位朋友写得很不错

fightsky · 发表于 2010-7-23 11:48:16

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 · 发表于 2010-7-23 11:49:19

For $y=0 To $a/3

fightsky · 发表于 2010-7-23 11:49:45

这样子改随便赚钱

3mile · 发表于 2010-7-23 11:52:54

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

fightsky · 发表于 2010-7-23 12:26:19

仁兄我刚吃完饭就让我做这种题目
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 · 发表于 2010-7-23 12:26:48

3元一次方程组

fightsky · 发表于 2010-7-23 12:29:04

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

zcx880517 · 发表于 2010-7-23 12:49:52

前来学习的。。

简单小屋 · 发表于 2010-7-23 12:52:57

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

		自动登录	找回密码
密码			加入

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

评分

相关帖子