用Delphi设计“抢三十”游戏

页面导航:首页 > 软件编程 > Delphi > 用Delphi设计“抢三十”游戏

用Delphi设计“抢三十”游戏

来源: 作者: 时间:2016-02-05 11:47 【

前言:抢三十是中国民间的一个游戏。游戏规则是:两人从1开始轮流报数,每人每次可加1或加2,谁先报到30,谁就为胜方。一个简单的游戏,要想获胜也只有掌握了其中的奥妙才行。但

前言:“抢三十”是中国民间的一个游戏。游戏规则是:两人从1开始轮流报数,每人每次可加1或加2,谁先报到30,谁就为胜方。一个简单的游戏,要想获胜也只有掌握了其中的奥妙才行。但要想用程序去实现该如何做呢?本文就为你做一个详细的讲解。

必胜的原理
如何才能轻易获胜呢?这就要去寻找其中的规律。我制作了一个小程序,让你可以和计算机单挑。程序界面如图。

\

若你先报数,不是我夸口,你是一定斗不过计算机的;若计算机先报数,那么就看你的了,如果你犯任何一次错误,计算机都会抓住机会反败为胜。听起来这个程序好像很智能,其实它的道理很简单:

获胜的必要条件是:牢牢抓住3的倍数。具体来讲就是把对方报的数字与3求模,若值为1,则报的数字为对方的数字加2;若值为2,则报的数字为对方的数字加1;否则的话就随意报1或者2。这样在游戏中就能紧紧抓住3的倍数,坚持到最后就是胜利者。
把这个算法用程序实现后,电脑在与人对局的时候就智能化了。试问不知道此算法的人会是电脑的对手吗?<喎"http://www.2cto.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"> 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事件中,请仔细体会这段程序。

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <