《活动的靶子》参考教案.docVIP

PAGE4/NUMPAGES4

活动的靶子

【\t/Health/cuxx/_blank教学目标】

1．继续熟悉Shapes对象的几个常用操作的使用方法。

2．继续熟悉流程图的画法，根据流程图编写程序。

3．掌握逻辑运算符“or”的使用方法。

【教学重难点】

在编写较复杂的程序时，最好是先画一个流程图，然后根据流程图编写程序代码，这样编写程序就不容易出错，因此画流程图是本课的重点。编写判断靶子有没有出界的程序代码是本课的难点。

【教学过程】

（一）画流程图

目的：在编写复杂的程序时，先设计好算法，画一个流程图，编写程序代码的时候就不容易出错。

靶子左右移动的流程图

?靶子的移动用命令x=x+x1表示，其中x1表示移动的速度，x1的值越大，表示移动越快。如果x1为负数，表示向左移动，x1为正数，表示向右移动。

如果靶子的宽度是200，那么靶子出界的判断是用下面的条件来表示的：x0Orx(GraphicsWindow.Width)-200

如果上面的条件成立，则表示靶子出界了，靶子的移动要改变方向，用命令来表示就是：x1=-x1

如果上面的条件不成立，则表示靶子没有出界，靶子继续移动到新的位置，用命令来表示就是：hapes.Move(target,x,y)

程序如下：

target=Shapes.AddRectangle(200,10)

x=0

y=200

x1=1

Whiletrue

x=x+x1

Ifx0Orx(GraphicsWindow.Width)-200Then

x1=-x1

Else

Shapes.Move(target,x,y)

EndIf

Program.Delay(3)

EndWhile

（二）边界的判断

如何判断靶子有没有出界？

根据靶子的横坐标的大小就可以判断靶子有没有出界。

“x0”或者“x(GraphicsWindow.Width)-200”是不是“成立”。

如果出界，靶子就改变移动方向：X1=－X1

如果没出界，靶子就移到坐标（x,y）处：Shapes.Move(target,x,y)

用条件语句表示就是：

Ifx0Orx(GraphicsWindow.Width)-200Then

x1=-x1

Else

Shapes.Move(target,x,y)

EndIf

（三）条件“或”关系表达式

逻辑运算符

举例?

?运算结果

?Or

aOrb

a成立或者b成立，条件就成立

（四）课外学习

1．小球在地面弹跳的程序（小球每次弹跳一样高）

ball=Shapes.AddEllipse(20,20)

x=200

y=100

s=0

Whiletrue

s=s+1

y=y+s

Ify=(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

Whiletrue

s=s+1

y=y+s

Ify=(GraphicsWindow.Height-20)Then

s=-s

EndIf

Shapes.Move(ball,x,y)

Program.Delay(50)

EndWhile