资源简介

第十二课 活动的靶子 教案
一、教学目标：
1．继续熟悉Shapes对象的几个常用操作的使用方法。
2．继续熟悉流程图的画法，根据流程图编写程序。
3．掌握逻辑运算符“or”的使用方法。
二、重点难点
在编写较复杂的程序时，最好是先画一个流程图，然后根据流程图编写程序代码，这样编写程序就不容易出错，因此画流程图是本课的重点。编写判断靶子有没有出界的程序代码是本课的难点。21教育网
很多同学喜欢玩游戏，但都是玩别人设计的游戏，这两节课我们设计游戏，设计用鼠标发射炮弹打活动靶子的游戏。这一节课先设计移动的靶子。21cnjy.com
一、画流程图
目的：在编写复杂的程序时，先设计好算法，画一个流程图，编写程序代码的时候就不容易出错。
靶子左右移动的流程图
靶子的移动用命令x=x+x1表示，其中x1表示移动的速度，x1的值越大，表示移动越快。如果x1为负数，表示向左移动，x1为正数，表示向右移动。21·cn·jy·com
如果靶子的宽度是200，那么靶子出界的判断是用下面的条件来表示的：x<0 Or x>(GraphicsWindow.Width)-200www.21-cn-jy.com
如果上面的条件成立，则表示靶子出界了，靶子的移动要改变方向，用命令来表示就是：x1=-x1
如果上面的条件不成立，则表示靶子没有出界，靶子继续移动到新的位置，用命令来表示就是：hapes.Move(target,x,y)21世纪教育网版权所有
程序如下：
target=Shapes.AddRectangle(200,10)
x=0
y=200
x1=1
While "true"
x=x+x1
If x<0 Or x>(GraphicsWindow.Width)-200 Then
x1=-x1
Else
Shapes.Move(target,x,y)
EndIf
Program.Delay(3)
EndWhile
二、边界的判断
如何判断靶子有没有出界？
根据靶子的横坐标的大小就可以判断靶子有没有出界。
“x<0”或者“x>(GraphicsWindow.Width)-200”是不是“成立”。
如果出界，靶子就改变移动方向：X1=－X1
如果没出界，靶子就移到坐标（x,y）处：Shapes.Move(target,x,y)
用条件语句表示就是：
If x<0 Or x>(GraphicsWindow.Width)-200 Then
x1=-x1
Else
Shapes.Move(target,x,y)
EndIf
三、条件“或”关系表达式
四、课外学习
1．小球在地面弹跳的程序（小球每次弹跳一样高）
ball=Shapes.AddEllipse(20,20)
x=200
y=100
s=0
While "true"
s=s+1
y=y+s
If y>=(GraphicsWindow.Height-20) Then
s=-s
y=y+s
Else
Shapes.Move(ball,x,y)
Program.Delay(50)
EndIf
EndWhile
2．小球在地面弹跳的程序（由于空气阻力等原因，反弹的高度越来越低）。
程序如下：
ball=Shapes.AddEllipse(20,20)
x=200
y=100
s=0
While "true"
s=s+1
y=y+s
If y>=(GraphicsWindow.Height-20) Then
s=-s
EndIf
Shapes.Move(ball,x,y)
Program.Delay(50)
EndWhile

展开更多......

收起↑