|
| 盒子资源分类 |
![]() |
|
|
|
|
| 猜数字，学Delphi |
![]() |
| 关键字：猜数字 游戏 Lazarus |
| 来 自：原创 |
| 平 台：Win2k/XP/NT,Win2003,Vista |
下载所需：0 火柴 |
| 深浅度：初级 |
完成时间：2009/6/15 |
| 发布者：dawolf |
发布时间：2009/6/15 |
| 编辑器：Lazarus |
语 种：简体中文 |
| 分 类：杂项 |
下载浏览：1181/6225 |
|
|
|
|
|
很多人都玩过一个猜数字的游戏，也有的叫做宾果游戏，就是由程序给出一个四位数字，玩家来猜。猜中数字和位置以A表示，只猜中数字但是位置不对用B表示。初中时在同学的文曲星上这个宾果游戏和黑白棋几乎是标准配置，不过那个黑白棋在我被初级AI虐待无数次之后产生深深的心理阴影不提也罢。现在大笨狼还和同事偷偷的通过邮件玩猜数字~~HOHO。游戏玩久啦自然想换个玩法，于是笨狼就想写段小代码让程序去猜。想啊想啊，想了3天没结果，然后就跑去玩了一个月的WOW。最近WOW要易主，把点卡用光没事儿干啦就又想写这个小程序。然后忽然某天脑筋搭错才发现要让程序模拟人脑的思考过程很难，但是反过来剔除所有不可能的结果却很简单。
其实笨狼知道网上肯定已经有很多算法可以解决这个问题，不过呢，写代码最好玩的地方是在思考一个问题怎么来实现，当知道算法之后剩下的就是敲键盘的体力活，一点乐趣都没有，生命的结果必然是入土，但我们享受的是过程嘛。
笨狼算法是这个样子，先枚举出所有的可能组合，然后每次把猜测的结果跟已经知道的数字比较，不符合的就去掉，那么最后剩下的一个就是啦。
最近想尝试下全免费软件的环境，所以下面的IDE环境会用Lazarus，不过语法跟Delphi是差不多的。下面就可以打开你们的Delphi。小小提示，在Delphi的启动项加上参数-np可以不要自动创建项目，虽然没什么用，不过，那个自动创建的项目也没什么用不是么。
新建一个Console Application，对于简单的代码调试，创建一个控制台程序是很方便的，想想在一个Edit框输入后还要把手放到鼠标上去点那个按钮笨狼就觉得麻烦。
既然是程序来猜，那自然要有个Guesser啦，就叫她Guesser好啦。那么她要住在哪里呢？放在默认创建的那个地方？上下乱乱的感觉不太好找。好吧，我们给她新建一间房子。新建一个Unit，保存到uGuesser.pas。文件名字为什么这么怪呢？因为一个窗体保存的时候会有A.pas和A.dfm两个文件，在资源管理器中打开的时候这两个文件排在一起很容易找到。如果把所有没有窗体的文件都以小写的u作为前缀，那么它们也会排列在一起方便查找。现在的软件开发都会用到源码管理系统，有时候需要找到几个文件进行更新，在几十个文件中要找几个文件，而且他们又排列的没有任何规律，那时候你就知道随便起名字有多麻烦啦。 |
![]() |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
|
|
|
