本帖最后由 3mile 于 2012-11-5 19:20 编辑
呵呵,很久以前写过一个12球的代码.
#include <array.au3>
local $a[12]=[1,1,1,1,1,1,1,1,1,1,1,1]
if Execute(_ArrayToString($a,"+",0,3))>Execute(_ArrayToString($a,"+",4,7)) Then;说明9,10,11,12标准
msgbox(4096,0,"第一次左重")
if $a[0]+$a[1]+$a[4]+$a[5]>$a[2]+$a[6]+$a[8]+$a[9] Then
msgbox(4096,0,"第二次左重")
if $a[0]>$a[1] Then
msgbox(4096,0,"第三次称重,结果为1重")
Elseif $a[0]<$a[1] Then
msgbox(4096,0,"第三次称重,结果为2重")
Else
msgbox(4096,0,"第三次称重,结果为7轻")
EndIf
ElseIf $a[0]+$a[1]+$a[4]+$a[5]<$a[2]+$a[6]+$a[8]+$a[9] Then
msgbox(4096,0,"第二次右重")
if $a[4]>$a[5] Then
msgbox(4096,0,"第三次称重,结果为6轻")
Elseif $a[4]<$a[5] Then
msgbox(4096,0,"第三次称重,结果为5轻")
Else
msgbox(4096,0,"第三次称重,结果为3重")
EndIf
Else
msgbox(4096,0,"第二次同重")
if $a[3]>$a[8] Then
msgbox(4096,0,"第三次称重,结果为4重")
Else
msgbox(4096,0,"第三次称重,结果为8轻")
EndIf
EndIf
ElseIf Execute(_ArrayToString($a,"+",0,3))<Execute(_ArrayToString($a,"+",4,7)) Then
msgbox(4096,0,"第一次右重")
if $a[0]+$a[1]+$a[4]+$a[5]>$a[2]+$a[6]+$a[8]+$a[9] Then
msgbox(4096,0,"第二次左重")
if $a[4]>$a[5] Then
msgbox(4096,0,"第三次称重,结果为5重")
Elseif $a[4]<$a[5] Then
msgbox(4096,0,"第三次称重,结果为6重")
Else
msgbox(4096,0,"第三次称重,结果为3轻")
EndIf
ElseIf $a[0]+$a[1]+$a[4]+$a[5]<$a[2]+$a[6]+$a[8]+$a[9] Then
msgbox(4096,0,"第二次右重")
if $a[0]>$a[1] Then
msgbox(4096,0,"第三次称重,结果为2轻")
Elseif $a[0]<$a[1] Then
msgbox(4096,0,"第三次称重,结果为1轻")
Else
msgbox(4096,0,"第三次称重,结果为7重")
EndIf
Else
msgbox(4096,0,"第二次相等")
if $a[3]<$a[8] Then
msgbox(4096,0,"第三次称重,结果为4轻")
Else
msgbox(4096,0,"第三次称重,结果为8重")
EndIf
EndIf
Else
msgbox(4096,0,"第一次相等")
if Execute(_ArrayToString($a,"+",8,10))>Execute(_ArrayToString($a,"+",0,2)) Then
msgbox(4096,0,"第二次右重")
if $a[8]>$a[9] Then
msgbox(4096,0,"第三次称重,结果为9重")
ElseIf $a[8]<$a[9] Then
msgbox(4096,0,"第三次称重,结果为10重")
Else
msgbox(4096,0,"第三次称重,结果为11重")
EndIf
ElseIf Execute(_ArrayToString($a,"+",8,10))<Execute(_ArrayToString($a,"+",0,2)) Then
msgbox(4096,0,"第二次左重")
if $a[8]>$a[9] Then
msgbox(4096,0,"第三次称重,结果为10轻")
ElseIf $a[8]<$a[9] Then
msgbox(4096,0,"第三次称重,结果为9轻")
Else
msgbox(4096,0,"第三次称重,结果为11轻")
EndIf
Else
msgbox(4096,0,"第二次相等")
if $a[0]>$a[11] Then
msgbox(4096,0,"第三次称重,结果为12轻")
ElseIf $a[0]<$a[11] Then
msgbox(4096,0,"第三次称重,结果为12重")
Else
msgbox(262144+64,0,"你不是在玩我吧,12个球一样重噢!")
EndIf
EndIf
EndIf
|