辽宁省沈阳市第五中学2013年高中数学论文 图形计算器应用能力测试活动学生 打地鼠的改进.docVIP

辽宁省沈阳市第十五中学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的等等）画完1——9号地鼠（样子都可以不一样哦），保存 再在屏幕中央画一个大boss，如图所示 保存为boss。 还可以画一幅打地鼠的开机图片，保存为open。 接下来是程序时间 程序部分很多由庄哲同学指导完成，在此感谢庄哲的帮助 Clear_a_z 0z（次数变量） 0a0t（时间变量） 10rty(任意的变量) -1g ClrGraph ViewWindow-8,8,1,-8,8,1 RclPict open(打开open文件) 0yui(任意变量) PrintNatural ghj(最高分变量)，“High Score” Input cv,“Clear?1=yes,0=no” DispText If cv=1 Then 0ghj Lbl star Cls 0x 0y g+1g Rand(-1,1)s（任意） Rand(-1,1)d（任意） 0u（任意） If z=10 Then 5rty 5nc(个数变量) Message”Lv.1 passed and HIT THE BOSS!” Goto boss Elseif z=25 Then 4rty 10nc Message”Lv.2 passed and HIT THE BOSS!” Goto boss Elseif z=55 Then 3rty 15nc Message”Lv.3 passed and HIT THE BOSS!” Goto boss Elseif z=125 Then 2rty 20nc Message”Lv.4 passed and HIT THE BOSS!” Goto boss Elseif z=325 Then 1rty 30nc Message”Lv.5 passed and HIT THE BOSS!” Goto boss Ifend Goto nor Lbl boss RclPict boss Lbl n 0x 0y 0u While(x=0 and y=0)and(u1) u+1u t+1t Print rty-u GetPen x,y WhileEnd If x60 and x122 and y162 and y211 and nc0 Then nc-1nc z+1z Goto n Ifend 0z 0y 0u Cls Lbl nor 5+s+3dk If k=1 Then RclPict pic1 Elseif k=2 Then RclPict pic2 Elseif k=3 Then RclPict pic3 Elseif k=4 Then RclPict pic4 Elseif k=5 Then RclPict pic5 Elseif k=6 Then RclPict pic6 Elseif k=7 Then RclPict pic7 Elseif k=8 Then RclPict pic8 Elseif k=9 Then RclPict pic9 Ifend While (x=0 and y=0)and(urty) u+1u t+1t Print rty-u GetPen x,y WhileEnd If x4 and x39 and y134 and y152 Then 7a Ifend If x63 and x97 and y134 and y152 Then 8a Ifend If x119 and x155 and y134 and y152 Then 9a Ifend If x4 and x39 and y163 and y184 Then 4a Ifend If x63 and x97 and y163 and y184 Then 5a Ifend If x119 and x155 and y163 and y184 Then 6a Ife