求 牛牛 游戏的算法, 和算 24 点差不多。(200)

3

32881

Unregistered / Unconfirmed
GUEST, unregistred user!
数组: 1...10随机取其中五个数字, 例如: 74589如果任意其中三数相加,结果为 10 的倍数, 则另外两数相加结果为牛数。 如上边结果为: 7 + 4 + 9 = 20, 5 + 8 = 13 , 结果为 : 牛三。再例如: 99761相加结果凑不成 10 的倍数, 结果为无牛。 9 数最大。再例如 14526相加结果为 145 为 10的1倍, 2 + 6 = 8 ,则为牛八,赢翻一倍。牛八才开始翻,以下不翻倍。再例如: 145 28相加结果为: 145 = 10 28 = 10 , 结果就为 牛牛, 赢翻 三倍,只有牛牛翻三倍。再例如: 22221其中有四个一样的,结果为 炸弹, 赢 4 倍。求任意输入五个数后,该如何实现这样的算法啊?
 
W

wangdonghai

Unregistered / Unconfirmed
GUEST, unregistred user!
...implementationuses Math;var PAI:array[1..5] of Integer;const cZH:array[1..8,1..3] of Integer= ( (1,2,3), (1,2,4), (1,3,4), (1,3,5), (2,3,4), (2,3,5), (2,4,5), (3,4,5) );procedure PaiXu;var i,j,k:integer;begin for i:=1 to 4 do for j:=1 to 4 do begin if PAI[j]>PAI[j+1] then begin k:=PAI[j]
PAI[j]:=PAI[j+1]
PAI[j+1]:=k
end
end;end;function CheckNiu(var value:Integer):Boolean;var i:Integer
TmpPAI:array[1..5] of Integer;begin result:=True
value:=-1
for i:=1 to 8 do if (PAI[cZH[1]]+PAI[cZH[2]]+PAI[cZH[3]]) mod 10=0 then begin Move(PAI,TmpPAI,5*SizeOf(Integer))
TmpPAI[cZH[1]]:=0
TmpPAI[cZH[2]]:=0
TmpPAI[cZH[3]]:=0
value:=(TmpPAI[1]+TmpPAI[2]+TmpPAI[3]+TmpPAI[4]+TmpPAI[5]) mod 10
exit
end
if ((PAI[1]=PAI[2]) and (PAI[1]=PAI[3]) and (PAI[1]=PAI[4])) or ((PAI[2]=PAI[3]) and (PAI[2]=PAI[4]) and (PAI[2]=PAI[5])) then begin value:=-PAI[2]
exit
end
result:=False;end;procedure TForm1.Button1Click(Sender: TObject);var i:Integer;begin for i:=1 to 5 do PAI:=StrToInt(edit1.Text)
PaiXu
if CheckNiu(i) then begin if i=0 then edit2.Text:='牛牛' else if i<0 then edit2.Text:='炸弹'+IntToStr(-i) else edit2.Text:='牛'+inttostr(i)
end else edit2.Text:='无牛,'+IntToStr(PAI[5])+'最大';end;没有考虑3张牌相同的情况,也没有考虑10以上的牌,只是符合楼主的要求,不符合真正的斗牛规则
 
3

32881

Unregistered / Unconfirmed
GUEST, unregistred user!
感谢您的回答,,已经接受答案了。
 
Top Bottom