利用图形计算器编写趣味数字游戏
陕西省西安市第一中学高三
刘曜、权力
【问题起源】
一些小型电子设备上常会有一些数字游戏，很有趣。例如计算机随机输出1个3位数，但是不予显示，要求玩家在最短的时间内把它猜出，而计算机可以提示玩家你猜的数字中有几位数字在位数上正确，有几个数字和正确数字一样。例如需要猜的数字为256，若第一次猜123，则计算机会告诉玩家猜的数里有0个数字猜对了并且所在位数也正确，有1个数字猜对了但是所在位数不一样。
【关键词】 图形计算器 编程 随机流
【程序实现】
以下就是对这个游戏的程序实现：
程序文件名：[GAME]
注：
1.灰色字体为程序注解，原程序中不出现
2.其中word文本格式中自带的换行符即代表程序的换行符
/---------------------------------------------------------------------------------------------------------/
“=======NUMBER GAME========”
/游戏开始的界面/
“
”
“LET’S
GUESS THE NUM!” ◢
“
”
Do
0→F
If
F=0
Then
“
”
“
”
“
”
“
”
“
”
“
”
“
”
“--------MENU---------”
/游戏的菜单界面/
“1
→ START THE
GAME”
/支持4个菜单选项/
“2
→ HOW TO
PLAY”
“3
→ SCORE”
“4
→ CLEAN
SCORE”
Do
“
”?→F
LpWhile
F≠1 And F≠2 And F≠3 And F≠4
“
”
“
”
“
”
“
”
“
”
“
”
“
”
“
”
“
”
IfEnd
If
F=2
Then
“----HOW TO PLAY ?----” ◢/进入游戏帮助界面，介绍游戏玩法/
“1.THE
COMPUTER WILL MAKE AN ARBITRARY NUMBER FROM 0 TO 999,And YOU MUST
GUESS IT OUT
” ◢
“
”
“2.THE
COMPUTER WILL TELL YOU HOW MANY NUMS YOU INPUT IS RIGHT”
◢
“
”
“3.’C:’MEANS HOW MANY NUM IS RIGHT,’U:’HOW MANY NUM
USED,’L:’LAST NUM YOU TRIED.” ◢
“
”
“4.EX.IF
THE RIGHT NUM IS
919” ◢
“And YOU
INPUT 909,IT WILL SAY:” ◢
“C:2”
“U:1”
“L:909” ◢
“
”
“5.IF YOU
TRIED MORE THAN 6 TIMES,THE COMPUTER WILL LAUGH AT YOU.IF MORE THAN
15 TIMES……”◢
“
”
“6.IF YOU
WANT TO GIVE UP And WANT TO KNOW THE RIGHT NUM,PLEASE INPUT
-1” ◢
“
”
“7.SCORE
RULE:” ◢
“
1→3 TIMES:+50
4→6 TIMES:+10
7→10 TIMES:+1
11→15 TIMES:-10
≥16
TIMES:-50” ◢
IfEnd
/---------------------------------------------------------------------------------------------------------/
If
F=3
Then
“-------SCORES-------” ◢/游戏积分系统，暂时只支持记录4位玩家/
“---PLAYER1---”
“TIMES:”:G◢
“SCORE:”:S◢
“
”
“
”
“
”
“
”
“
”
“
”
“
”
“---PLAYER2---”
“TIMES:”:H◢
“SCORE:”:T◢
“
”
“
”
“
”
“
”
“
”
“
”
“
”
“---PLAYER3---”
“TIMES:”:I◢
“SCORE:”:K◢
“
”
“
”
“
”
“
”
“
”
“
”
“
”
“---PLAYER4---”
“TIMES:”:J◢
“SCORE:”:U◢
“
”
“
”
“
”
“
”
“
”
“
”
“
”
IfEnd
/---------------------------------------------------------------------------------------------------------/
If
F=4
Then
“--------CLEAN--------”
/游戏初始化设置，玩家输入预设密码即可操作/
“PLEASE
INPUT THE KEY:(INPUT 0 TO EXIT)”
Do
?→L
If
L≠0 And L≠2.718281828
Then “KEY
IS WRONG!”
IfEND
LpWhile
L≠0 And L≠2.718281828
If
L=2.718281828
Then
1000→G
1000→H
1000→I
1000→J
0→S
0→T
0→K
0→U
“
”
“ALL
SCORES CLEANED!” ◢
IfEnd
IfEnd
LpWhile
F≠1
/---------------------------------------------------------------------------------------------------------/
Do “---WHO
ARE YOU?---”
/玩家登陆界面，支持4位注册玩家和游客/
“1
→ PLAYER1”
“2
→ PLAYER2”
“3
→ PLAYER3”
“4
→ PLAYER4”
“5
→ GUEST”
Do
?→r
“
”
LpWhile
r≠1 And r≠2 And r≠3 And r≠4 And r≠5
If
r=1
/分别输入玩家自己的密码，密码由编者提前在程序中录入/
Then
2.718281828→C
IfEnd
If
r=2
Then
1346852790→C
IfEnd
If
r=3
Then
852456→C
IfEnd
If
r=4
Then
1234567→C
IfEnd
If
r≠5
Then
“PLEASE INPUT KET:”
?→B
If
B=C
Then “KEY
IS PASS!” ◢
Else “KEY
IS WRONG!” ◢
0→r
“
”
“
”
“
”
“
”
“
”
“
”
“
”
IfEnd
IfEnd
/---------------------------------------------------------------------------------------------------------/
/以下为游戏主程序/
LpWhile
r≠1 And r≠2 And r≠3 And r≠4 And r≠5
INT
(RAN#×10)→A
/自动生成随机数/
INT
(RAN#×10)→B
INT
(RAN#×10)→C
A×100+B×10+C→E
0→R
“
”
“
”
“
”
“
”
“
”
“
”
Do
Do
“INPUT A
NUM IN[0,999]”
“TIMES:”
(R+1) ◢
/---------------------------------------------------------------------------------------------------------/
?→D
/玩家输入所猜的数字/
0→θ
If
D=3.1415926
/本游戏的隐藏秘籍，输入圆周率可进行作弊，直接胜利，但个人成绩不会更新/
Then
1→θ:E→D
IfEnd
LpWhile
(D-INT D≠0) OR D≥1000
OR D＜-1
If
D≠-1
/输入-1认输可看到答案/
Then
INT(D÷100)→M
INT
((D-100×M)÷10)→N
D-100×M-10×N→O
0→P
0→Q
0→V
0→W
If
M=A
Then
P+1→P
Q+1→Q
If
M=N
Then
1→V
IfEnd
If
M=0
Then
1→W
IfEnd
Else If
M=B OR M=C
Then
Q+1→Q
If
M=N
Then
1→V
IfEnd
If
M=O
Then
1→W
IfEnd
IfEnd
IfEnd
If
N=B
Then
P+1→P
If
V≠1
Then
Q+1→Q
IfEnd
If
N=O
Then
1→W
IfEnd
Else If
N=A OR N=C
Then If
V≠1
Then
Q+1→Q
IfEnd
If
N=O
Then
1→W
IfEnd
IfEnd
IfEnd
If
O=C
Then
P+1→P
If
W≠1
Then
Q+1→Q
IfEnd
Else If
O=A OR O=B
Then If
W≠1
Then
Q+1→Q
IfEnd
IfEnd
IfEnd
/---------------------------------------------------------------------------------------------------------/
“C:”
/每猜一次计算机给玩家的线索提示/
P◢
“U:”
Q◢
R+1→R
“L:”
D◢
/---------------------------------------------------------------------------------------------------------/
If D=E
And θ≠1
/游戏结束后的计分系统/
Then If
R≤3
Then
50→Z
Else If
R≤6
Then
10→Z
Else If
R≤10
Then
1→Z
Else If
R≤15
Then
-10→Z
Else
-50→Z
IfEnd
IfEnd
IfEnd
IfEnd
If
r=1
Then
Z+S→S
If
R＜G
Then
R→G
IfEnd
IfEnd
If
r=2
Then
Z+T→T
If
R＜H
Then
R→H
IfEnd
IfEnd
If
r=3
Then
Z+K→K
If
R＜I
Then
R→I
IfEnd
IfEnd
If
r=4
Then
Z+U→U
If
R＜J
Then
R→J
IfEnd
IfEnd
IfEnd
LpWhile
D≠E
/---------------------------------------------------------------------------------------------------------/
If
R＜9
/游戏结束后的不同结局/
Then
“CONGRATULATIONS!”
“YOU ARE
CLEVER!”
Else If
R≥11
Then If
R≤15
Then “YOU
ARE FOOL!”
Else
“YOU’VE TRIED:”
R
“BECAUSE
YOU ARE TOO STUPID ,SO THE SYSTEM WILL BE CRAZY!”
◢
While
0=0
“FOOL”
“
FOOL”
WHILEEND
IfEnd
Else “YOU
SHOULD WORK HARDER!”
IfEnd
IfEnd
“YOU’VE
TRIED:”
R◢
“THE RIGHT
NUM IS:”
E◢
Else “OH
NO, YOU LOST!”
“YOU’VE
TRIED:”
R◢
“THE RIGHT
NUM IS:”
E◢
/---------------------------------------------------------------------------------------------------------/
Prog
“[GAME]”
/重新载入游戏/
IfEnd
“
”
“
”
“
”
“
”
“
”
“
”
“
”
/---------------------------------------------------------------------------------------------------------/
/程序结束/
【程序小结】
游戏实现了简单的游戏操作和基本的可视化界面。
添加了玩家登陆系统和积分系统，还有重置系统。
另外还添加了游戏秘籍等附加功能。
【小结与反思】
在计算器中实现这种程序非常有限制，存储单元有限，所以程序会略显麻烦。
通过用计算器编程，帮我建立了更为完整和全面的思维体系，对于数学逻辑思维的强化可以使我们把这种思维方式运用到今后更广泛的学习领域去，可以使我受益匪浅！
扫一扫
3048
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
