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 To75
        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)
页: 1 2 [3] 4 5
查看完整版本: [追加新题]刚刚看到个数学题，新人来做做吧，呵呵