遼寧省沈陽市第十五中學(xué)2020年高中數(shù)學(xué)論文 圖形計算器應(yīng)用能力測試活動學(xué)生 打地鼠的改進（通用）

1、遼寧省沈陽市第十五中學(xué)2020年高中數(shù)學(xué)論文 圖形計算器應(yīng)用能力測試活動學(xué)生 打地鼠的改進早就知道CLASSPAD330上可以用program來玩打地鼠游戲了，現(xiàn)在改進了一下打地鼠的游戲，使之更有趣味。首先，先介紹一下地鼠的畫法打開graph and table,畫出r=0.75的圓打開view window改成如圖，然后按graph format,改成，就是去掉坐標軸然后畫其中點擊下方圖片使用analysis,sketch,text,然后就可以用文字裝飾地鼠了效果如下最后儲存圖片store picture,因為這個地鼠底下的橢圓在鍵盤1的位置，所以保存為pic1文件同理通過改變view wi

2、ndow,改變x,y的范圍（什么-1,5或-5,1的等等）畫完19號地鼠（樣子都可以不一樣哦），保存再在屏幕中央畫一個大boss，如圖所示保存為boss。還可以畫一幅打地鼠的開機圖片，保存為open。接下來是程序時間程序部分很多由莊哲同學(xué)指導(dǎo)完成，在此感謝莊哲的幫助Clear_a_z0z（次數(shù)變量）0a0t（時間變量）10rty(任意的變量)-1gClrGraphViewWindow-8,8,1,-8,8,1RclPict open(打開open文件)0yui(任意變量)PrintNatural ghj(最高分變量)，“High Score”Input cv,“Clear?1=yes,0=no

3、”DispTextIf cv=1Then0ghjLbl starCls0x0yg+1gRand(-1,1)s（任意）Rand(-1,1)d（任意）0u（任意）If z=10Then5rty5nc(個數(shù)變量)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=1

4、25Then2rty20ncMessage”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 n

5、Ifend0z0y0uClsLbl 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+1tP

6、rint 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”zghjIfen