所谓算二十四点可能是不少读者朋友童年喜欢玩的扑克游戏之一，玩法是：把一副扑克牌从A到10选出来均分成两份，两个小朋友各持一份即可开始游戏，每人随机抽两张出来组成四张牌，把这四张牌加减乘除凑成结果为二十四，先算出来的一方赢得对方的两张牌，进行下一轮，如果都没计算出来为和局，直到把对方所有的扑克牌全部缴获，游戏方告结束。

　　想要自己算的最快吗？那最好是让程序来替你做个二十四点王。

　　用程序实现二十四点的算法很多，但大都比较繁杂。考虑到凑出结果的可能情况并不是太多，在这里我们将主要靠自己穷举可能的演算式外加循环计算来实现。

　　一、四张牌的排列组合

　　四张牌A B C D共有多少种排列组合？公式为P44，即1×2×3×4=24共24种组合。

　　为什么要把四张牌的所有排列组合都罗列出来呢？因为我们将要采用的算法简单说就是：穷举所有算术式，比如A+B+C+D、A+B+C-D等等，让每一个算术式的四个变量都去排列组合一次，寻找是否存在一个排列组合使算术式的值为24。举个例子A+B+C-D：

　　把四张牌(四个变量)放入表2的(Pos.1、Pos.2、Pos.3、Pos.4)四个位置中去，总共应该有24种放置方法。

　　如果在表3内找到一个公式使A+B+C-D的值等于24，则打印出此算术式，否则说明此算术式不满足需要，再进行下一个算术式的变量的排列组合。如果穷举所有的算术式都不能满足要求，那么表示此题无解。

　　一、穷举所有算术式

　　这个工作比较烦琐，但很考验你的逻辑演算能力。笔者按加、减、乘、除、括号的顺序基本罗列完了所有算术式，表4—表6只罗列了一部分，剩下的读者可以自己来完成：

　　二、制作游戏

　　有了前面的基础后，开始编程。笔者在这里使用的是Borland C++ Builder，下面简单介绍一下制作流程并讲解其中的难点：

　　1.动手设计一个人性化的界面。

　　2.程序编制流程：

　　不管是手动输入四个数还是随机产生，都把这四个数值存储起来，然后进行求解。求解时遵循这样的规律：这里共有45种算术式(包括无解)，从第一个算术式开始不断调用排列组合，如果成立(结果为24)，退出求解过程并输出结果，不成立则尝试下一个算术式，直到最后一个算术式的调用，如果都不满足则打印无解。

　　3.随机产生数字：

　　产生四个数，一种方式是手动录入，一种方式是随机产生，这里只给出随机产生数字的代码：（程序里的变量没作说明均为全局变量）

void __fastcall TForm1::Button2Click(TObject *Sender)

{ flag=false; randomize(); NumberA=random(10)+1; NumberB=random(10)+1; NumberC=random(10)+1; NumberD=random(10)+1; Edit1->Text=FloatToStr(NumberA); Edit2->Text=FloatToStr(NumberB); Edit3->Text=FloatToStr(NumberC); Edit4->Text=FloatToStr(NumberD); Button4->SetFocus(); }  

　　4.求解过程：

求解

for(j=1;j<=45;j++) { switch(j) { /// case 2://对应表4的第二种情况 for(i=1;i<=24;i++)//注意case1只循环1次，因为四个变量求和不必考虑变量的位置 { kind(i);//调用子函数 answer=A+B+C-D; if(answer==24) { flag=true; //设置标志  result=FloatToStr(A)+"+"+FloatToStr(B)+"+"+FloatToStr(C)+"-"+FloatToStr(D)+"=24"; Label1->Caption=result; Label1->Visible =true; break; } } if(flag==true)break;//退出switch ……………………//余下的求解算术式的方法与case2相似，这里就不重复了。 case 45: flag=true; result="无解"; Label1->Caption=result; Label1->Visible =true; break; if(flag==true)break; // / } if(flag==true)//退出循环 break; }

　　子函数：

int kind(int k)

{ switch(k)//排列组合4个数，对应表1 { case 1:A=NumberA;B=NumberB;C=NumberC;D=NumberD;break; case 2:A=NumberA;B=NumberB;D=NumberC;C=NumberD;break; case 3:A=NumberA;C=NumberB;B=NumberC;D=NumberD;break; case 4:A=NumberA;D=NumberB;B=NumberC;C=NumberD;break; …… case 22:D=NumberA;B=NumberB;A=NumberC;C=NumberD;break; case 23:D=NumberA;B=NumberB;C=NumberC;A=NumberD;break; default:D=NumberA;C=NumberB;B=NumberC;A=NumberD; } }

　　小结：

　　值得注意的是在罗列算术式时既要避免重复，如A+B×C+D与A×B+C+D是一致的，需要丢弃一个，又要列举全面，还要考虑到排除掉不可能实现的算术式，此程序的算法不难理解，关键在于算术式的准确。理清楚了算法，编程是很快的。

 

本文转自yonghu86 51CTO博客，原文链接：http://blog.51cto.com/yonghu/1321410，如需转载请自行联系原作者