辽宁省沈阳市第十五中学2024年高中数学论文 图形计算器应用能力测试活动学生 论图形计算器上的扫雷游戏编程_1.doc

辽宁省沈阳市第十五中学2024年高中数学论文图形计算器应用能力测试活动学生论图形计算器上的扫雷游戏编程

刚开始接触到图形计算器时，我便被它的编程功能吸引住了，虽然它的可编程性略有不足，但依然可以激发出我极大的兴趣。于是乎，通过反复尝试，终于编出这一款不是很完美的扫雷游戏。

下面来介绍一下主要的程序原理：

1扫雷界面的绘制

由用户输入方格大小后，由于本人时间技术的问题，只好用直线代替：

for0→xtohang（列数）

for0→ytohang（行数）

line0,x,hang,x

liney,0,y,hang

next

next

这是我的解决方法。

2设雷

这是一个非常烦的问题，因为图形计算器中并不提供数组功能，为此用一个比较大的函数来储存它：

for1→xtohang

for1→ytohang

strjoin10,ku

next

next;库的初始化

for0→leitoleishu(雷的数量)

rand(hang)→xi

rand(hang)→yi

2*(xi1)*hang+(yi1)→shua

ChrtoNumku,pan,shua

ifpan=48

then

strleftku,(shua1),left

strrightku,(2*(hang^2)+1shua),right

strjoinleft,1,lef

strjoinlef,right,ku

else

lei1→lei

ifend

next

3检测输入的位置：

可以用while语句来弥补getpen的不足:

0→x

0→y

whilex=0andy=0

getpenx,y

whileend

int((x*hang/156)+1)→x

int((y131)*hang/78+1)→y

4检测周围的雷数目

这一段程序有很多不足，欢迎建议：

ChrtoNumku,te,2(hang*y+x1)+1

Ifte=49

then

printnature，“youlose”

else

0→n

forx1→xitox+1

fory1→ytoy+1

ifyi＞0andyi≤hangandxi＞0and≤hang

then

ChrtoNumku,te,2(hang*yi+xi1)+1

ifte=49

then

n+1→n

ifend

ifend

next

next

ifend

最后print到指定位置就行了

由于图形计算器的计算速度有限建议将此程序预处理：

将其放在标完雷后，去第一个if，加入：

for1→xtohang

for1→ytohang

…

…

next

next

5关于文字在对应区块的显示：

Textint（（156/hang）（x05）），int（（78/hang）（y1）），文字

6关于输赢的判断：

我采用的是对标对或错的雷进行统计，通过建立一个标错雷的记录函数，方法参照上文2的方法

if标雷（某个函数）=开（1）check=正确（1）

then

leiyib+1→leiyib

elseif标雷（某个函数）=开（1）check=错误（0）曾标错=错误（0）

then