用Delphi设计“抢三十”游戏
前言：“抢三十”是中国民间的一个游戏。游戏规则是：两人从1开始轮流报数，每人每次可加1或加2，谁先报到30，谁就为胜方。一个简单的游戏，要想获胜也只有掌握了其中的奥妙才行。但要想用程序去实现该如何做呢？本文就为你做一个详细的讲解。
必胜的原理
如何才能轻易获胜呢？这就要去寻找其中的规律。我制作了一个小程序，让你可以和计算机单挑。程序界面如图。
 |
若你先报数，不是我夸口，你是一定斗不过计算机的；若计算机先报数，那么就看你的了，如果你犯任何一次错误，计算机都会抓住机会反败为胜。听起来这个程序好像很智能，其实它的道理很简单：
获胜的必要条件是：牢牢抓住3的倍数。具体来讲就是把对方报的数字与3求模，若值为1，则报的数字为对方的数字加2；若值为2，则报的数字为对方的数字加1；否则的话就随意报1或者2。这样在游戏中就能紧紧抓住3的倍数，坚持到最后就是胜利者。
把这个算法用程序实现后，电脑在与人对局的时候就智能化了。试问不知道此算法的人会是电脑的对手吗？<喎?http://www.zzzyk.com/kf/ware/vc/" target="_blank" class="keylink">vcD4NCjxwPjxzdHJvbmc+udi8/LT6wus8YnIvPg0KPC9zdHJvbmc+1NrT0MHLs8zQ8rXEy+O3qLrNvefD5tauuvOjrNKqseDQtM3q1fu1xLPM0PK+zbK7yse63MCnxNHBy6GjPGJyLz4NCtfuudi8/LXEz9TKvsq1sai1xMr919a1xEVkaXS/2Lz+tcRPbmNoYW5nZbT6wuujujxici8+DQo8dGFibGUgYm9yZGVyY29sb3I9"#ffcc66" width="90%" align="center" bgcolor="#e6e4dd" border="1">
begin
if flag=false then //得到控制权，计算机开始自动报数
begin
temp1:=s+1;
temp2:=s+2;
if (temp1 mod 3)=0 then //你报的最后的数字与3取模，若为1，则计算机加2
begin
s:=temp1;
j:=1;
end
else if (temp2 mod 3)=0 then //你报的最后的数字与3取模，若为2，则计算机加1
begin
s:=temp2;
j:=2;
end
else //否则计算机随机报一个数字或两个数字
begin
randomize();
j:=random(2)+1;
s:=s+j;
end;
Button2.Enabled :=true; //计算机报数完毕后把报数按钮设为可用
Button3.Enabled :=true;
Button2.Caption :=IntToStr(s+1); //并把报数按钮的Caption设为将要选择的数字
Button3.Caption :=IntToStr(s+2);
Edit2.Text :=IntToStr(j); //显示计算机报的个数
ListBox1.Items.Add(计算机报的个数： +IntToStr(j));//写入到历史记录
flag:=true; //交出控制权
Edit1.Text :=IntToStr(s); //显示计算机实际报的数字
if s>=30 then //判断游戏是否结束
begin
Button2.Enabled :=false;
Button3.Enabled :=false;
ShowMessage(嘿嘿，想赢我？动动脑筋再来吧！);
end;
end;
end;
难点讲解
用一个BOOL变量来交接控制权，也就是什么时候该由你报数，什么时候该由计算机报数。
Form1.Edit1Change处理时要注意，Edit1显示的是计算机实际报的数字。当控制权移交到计算机时，计算机处理完报数程序后要做两件事：1交出控制权，2刷新Edit1的显示。这里要相当小心，看起来这两件事的先后顺序不重要，可实际上要特别注意：如果先刷新Edit1的显示再交出控制权的话，数据就会溢出！
道理是这样的，当程序执行到Edit1的显示刷新时，程序不再向下执行而是回到本段程序的第一行开始依次执行，当执行到这里时再次返回到第一行……死循环就产生了！所以一旦遇到刷新Edit1的显示时，请仔细考虑所做的事情是否存在先后顺序，因为执行Edit1的显示代码后程序将不再向下继续执行，而是跳到TForm1.Edit1Change事件中，请仔细体会这段程序。
补充：软件开发 , Delphi ,
