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

seniors · 发表于 2010-7-24 06:58:25

电脑枚举，到底不如楼上的人脑思维，3mile厉害

zps26 · 发表于 2010-7-24 19:20:33

觉得15楼简单正确

shenrenba · 发表于 2010-7-24 22:54:02

看看怎么计算的不懂

yarsye · 发表于 2010-7-26 11:42:43

Dim $zi , $san , $zilun , $sanlun , $total
$total=150
For $zi = 0 To $total/2
        For $san = 0 To $total/3
                $total = $zi*2 + $san *3
                If $zi*2 + $san *3 = 150 And $zi + $san =65 Then
                        MsgBox(0,$zi,$san)
                EndIf
                
        Next
        
Next

shun.and.fa · 发表于 2010-7-26 11:52:25

我来看看呵呵

lin0308 · 发表于 2010-7-26 11:58:56

实在是很厉害的说

tryhi · 发表于 2010-7-26 13:07:30

$zxc=3*65-150
msgbox(0,"自行车",$zxc)
msgbox(0,"三轮车",150-$zxc)

sanmoking · 发表于 2010-7-26 20:04:18

for $x = 0 to 65
if 2*$x + (65-$x)*3 = 150 Then MsgBox(0,0,"自行车"&$x&"辆，三轮车"&65-$x&"辆。")
Next

sanmoking · 发表于 2010-7-26 20:09:58

MsgBox(0,0,"自行车有"&Abs(150-65*3)&"辆，三轮车有"&150-65*2&"辆。")

fightsky · 发表于 2010-7-27 10:52:14

Local $x, $y, $j, $Result
Dim $input = InputBox("", "车棚有三轮车自动车共65辆，输入车轮总数")
If IsInt(Execute($input)) Then    ;//判断是否是整型量如果不是则提示 MsgBox(4096, "警告", "车轮残缺不全" & @CRLF & "不予计算")
If $input >=(($input/2 - 1) * 2 + 3)or $input >= (($input / 3) * 3 + 2) Then ;//判断车库中肯定共存有2轮和3轮车
                     For $x = 0 To $input / 2          ;//计算2轮
                              For $y = 0 To $input / 3    ;//计算3轮
                                    $j = $x *2+ $y*3    ;//计算总轮子数量
                                    If $j = $input And $x+$y=65 Then
                                             $Result &= "自行车有：" & $x & "辆" & @TAB & "三轮车有：" & $y & "辆" & @CRLF
                                    EndIf
                              Next
                     Next
      MsgBox(0, 0, $Result)
Exit
EndIf
MsgBox(4096, "警告", "车库中必定存在3轮和2轮车您输入的车轮总数不对")
Exit
EndIf
MsgBox(4096, "警告", "车轮残缺不全" & @CRLF & "不予计算")

这个是我改善的，之前3smile兄的逻辑有点问题，太复杂了，公约数存在的话那么就无法计算所有的组合。
题目是车棚中3轮车和自行车都有，那么我们无法判断他到底有多少辆我只能限定，它的最小值和最大值。

fightsky · 发表于 2010-7-27 10:55:32

If $input >=(($input/2 - 1) * 2 + 3)or $input >= (($input / 3 -1 ) * 3 + 2) Then ;//判断车库中肯定共存有2轮和3轮车

这句话要改善一下

fightsky · 发表于 2010-7-27 10:58:06

有点错误了我在改善下

fightsky · 发表于 2010-7-27 10:58:25

没有考虑到余数

koalacoca · 发表于 2010-7-27 11:00:08

来看看什么东东

anchie · 发表于 2010-7-27 11:09:56

Dim $x ,$y
Dim $a
$a = ""
For $x = 1 To 75
For $y = 1 To 50
If $x + $y = 65 And $x * 2 + $y * 3 = 150 Then
$a = $a&""&"自行车数量是:"&$x& @CRLF &"三轮车数量是:"&$y
EndIf
Next
Next

MsgBox(0,"",$a)

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

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