| | | | | | | [文章信息] | | | 作者: | 曾虹云 | | 时间: | 2004-11-03 | | 出处: | 电脑报 | | 责任编辑: | 方舟 | |
| [文章导读] | | | 一个简单的游戏，要想获胜也只有掌握了其中的奥妙才行 | |
| |
|
| | | |
|
|
|
|
|
前言：“抢三十”是中国民间的一个游戏。游戏规则是：两人从1开始轮流报数，每人每次可加1或加2，谁先报到30，谁就为胜方。一个简单的游戏，要想获胜也只有掌握了其中的奥妙才行。但要想用程序去实现该如何做呢？本文就为你做一个详细的讲解。
必胜的原理
如何才能轻易获胜呢？这就要去寻找其中的规律。我制作了一个小程序，让你可以和计算机单挑。程序界面如图。
若你先报数，不是我夸口，你是一定斗不过计算机的；若计算机先报数，那么就看你的了，如果你犯任何一次错误，计算机都会抓住机会反败为胜。听起来这个程序好像很智能，其实它的道理很简单：
获胜的必要条件是：牢牢抓住3的倍数。具体来讲就是把对方报的数字与3求模，若值为1，则报的数字为对方的数字加2；若值为2，则报的数字为对方的数字加1；否则的话就随意报1或者2。这样在游戏中就能紧紧抓住3的倍数，坚持到最后就是胜利者。
把这个算法用程序实现后，电脑在与人对局的时候就智能化了。试问不知道此算法的人会是电脑的对手吗？
关键代码
在有了程序的算法和界面之后，要编写完整的程序就不是很困难了。
最关键的显示实报的数字的Edit控件的Onchange代码：
procedure TForm1.Edit1Change(Sender: TObject);
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事件中，请仔细体会这段程序。
源代码下载
|
|
|
|
|
|
|
|
|
