辽宁沈阳第十五中学高中数学图形计算器应用能力测试活动学生打地鼠的改进

辽宁省沈阳市第十五中学2013年高中数学论文 图形计算器应用能力测试活动学生 打地鼠的改进早就知道CLASSPAD330上可以用program来玩打地鼠游戏了，现在改进了一下打地鼠的游戏，使之更有趣味。首先，先介绍一下地鼠的画法打开graph and table,画出r=0.75的圆打开view window改成如图，然后按graph format,改成，就是去掉坐标轴然后画其中点击下方图片使用analysis,sketch,text,然后就可以用文字装饰地鼠了效果如下最后储存图片store picture,因为这个地鼠底下的椭圆在键盘1的位置，所以保存为pic1文件同理通过改变view window,改变x,y的范围（什么-1,5或-5,1的等等）画完19号地鼠（样子都可以不一样哦），保存再在屏幕中央画一个大boss，如图所示保存为boss。还可以画一幅打地鼠的开机图片，保存为open。接下来是程序时间程序部分很多由庄哲同学指导完成，在此感谢庄哲的帮助Clear_a_z0z（次数变量）0a0t（时间变量）10rty(任意的变量)-1gClrGraphViewWindow-8,8,1,-8,8,1RclPict open(打开open文件)0yui(任意变量)PrintNatural ghj(最高分变量)，“High Score”Input cv,“Clear?1=yes,0=no”DispTextIf cv=1Then0ghjLbl starCls0x0yg+1gRand(-1,1)s（任意）Rand(-1,1)d（任意）0u（任意）If z=10Then5rty5nc(个数变量)Message”Lv.1 passed and HIT THE BOSS!”Goto bossElseif z=25Then4rty10ncMessage”Lv.2 passed and HIT THE BOSS!”Goto bossElseif z=55Then3rty15ncMessage”Lv.3 passed and HIT THE BOSS!”Goto bossElseif z=125Then2rty20ncMessage”Lv.4 passed and HIT THE BOSS!”Goto bossElseif z=325Then1rty30ncMessage”Lv.5 passed and HIT THE BOSS!”Goto bossIfendGoto norLbl bossRclPict bossLbl n0x0y0uWhile(x=0 and y=0)and(u1)u+1ut+1tPrint rty-uGetPen x,yWhileEndIf x60 and x122 and y162 and y211 and nc0Thennc-1nc z+1zGoto nIfend0z0y0uClsLbl nor5+s+3dkIf k=1ThenRclPict pic1Elseif k=2ThenRclPict pic2Elseif k=3ThenRclPict pic3Elseif k=4ThenRclPict pic4Elseif k=5ThenRclPict pic5Elseif k=6ThenRclPict pic6Elseif k=7ThenRclPict pic7Elseif k=8ThenRclPict pic8Elseif k=9ThenRclPict pic9IfendWhile (x=0 and y=0)and(urty)u+1ut+1tPrint rty-uGetPen x,yWhileEndIf x4 and x39 and y134 and y152Then7aIfendIf x63 and x97 and y134 and y152Then8aIfendIf x119 and x155 and y134 and y152Then9aIfendIf x4 and x39 and y163 and y184Then4aIfendIf x63 and x97 and y163 and y184Then5aIfendIf x119 and x155 and y163 and y184Then6aIfendIf x4 and x39 and y191 and y209Then1aIfendIf x63 and x97 and y191 and y209Then2aIfendIf x119 and x155 and y191 and y209Then3aIfendIf a=5+s+3dThenz+1zGoto starIfendIf zghjThenPrintNatural z ,”your score”PrintNatural t ,”your time”ElsePrintNatural z ,”High score! your score”PrintNatural t ,”your time”zghjIfend