计算器编辑游戏程序---“猜数字游戏”
2013-01-10 13:38阅读：
计算器编辑游戏程序---“猜数字游戏”
西安市第一中学
高中学生：张若微
今天，当我们自然而然地将几乎人手一个的计算器称之为“计算器”时，你可知道在这小小的机器里面凝聚了怎样的技术结晶？更经历了怎样突飞猛进的更新换代？从当初几乎占据了整个写字台的“庞然大物”到实现小型化飞跃，再到仅半个世纪后的今天具备了各种初创期时难以想象的功能，这一发展的历程，我们可以名副其实地称之为“革命”。
在计算能力飞速发展的今天
,各种计算工具应运而生代替了以往我们大量、
繁琐的分析计算工作,简化了计算步骤，节省了大量时间。卡西欧计算器更是其中功能强大，极具拓展与创造性的计算工具。我和几位同学在使用计算器时解决了一些问题，获得了很多乐趣。
下面是我在课余时间编写的一个游戏程序：“猜数字”。
游戏以“我”和“电脑”两个玩家展开，在1~10000中随机生成一个数字，然后“我”与“电脑”轮流猜，提示“大了”或“小了”，直至猜中数字。新奇之处在于我根据计算器中每个字母可以储存一个数据，编写了“最高纪录”的机制（游戏记录步骤，越少越高）。
程序如下:
0→A
0→X
-1→P
10000→B
0→C
Int
(Ran#×10) →R
Int
(Ran#×10) →Q
（生成随机数）
Int
(Ran#×10) →M
Int
(Ran#×10) →O
(R×1000+Q×100+M×10+O)
→N
Lbl 1
（循环所用）
X+1→X
-P→P
P=1
=> “INPUT YOUR
NUMBER”
(规定数字范围方便查询)
P=1
=>
“RANGE”
P=1
=>C◢
P=1
=>
“≦A≦”
P=1
=>B◢
P=1
=>?→A
If
P≠1
Then “COMPUTER
TURN”
(B-C)
＞6=>Int ((B+C)
÷2) →A
（二分法原理）
(B-C)
≦6=>Int
C+1 →A
（以6为界，使电脑智能）
A◢
If End
A＞N=> “BIG”
A＞N=>A＜B=>A→B
A＜N=> “SMALL”
A＜N=>A＞C=>A→C
If
A≠N
Then Goto
1
If End
P=1=> “YOU WIN
PLEASE PRESS EXE TO PLAY
AGAIN”
P≠1=> “COMUTER WIN PLEASE
PRESS EXE TO PLAY
AGAIN”
If
P≠0
Then
“PROCEDURE”
X◢
P≠0=>X≦J => P=1 =>
X→j
(记录最高步骤)
P=1=>X＜j=> “YOU BREAK THE RECORD
CONGRADUL
ATIONS”
P≠100=> “HIGEST MARK”
J◢
感想：
通过这次编的小游戏，明白了一些数学思想，增长了乐趣，放松了心情。
