第七课 画同心圆 课件

课件13张PPT。请欣尝同心圆第七课 《画 同 心 圆》教学目标：
1、利用Small Basic进行设计画同心圆的程序，培
养同学们对电脑编程的兴趣，培养创造性思维。
2、熟悉画椭圆或圆的命令及操作。
教学重点和难点：
重点：熟悉画椭圆或圆的命令及操作。
难点：进一步熟悉GraphicsWindow的坐标系，能够
利用坐标系确定所画椭圆或圆的位置。画一个正36边形S=36
Length=20
E=360/S
For i=1 to S step 1
Turtle.Move(Length)
Turtle.Turn(E)
EndFor——（近似圆）如何画圆 圆是椭圆的一个特例。在 Small Basic 的图形窗口中画圆和画椭圆都是用DrawEllipse 操作，它格式如下： GraphicsWindow.DrawEllipse( a , b , width , height ) X坐标 y坐标 （椭）圆的宽度 （椭）圆的高度 例如：
GraphicsWindow.DrawEllipse(300,200,100,100)
GraphicsWindow.DrawEllipse(300,200,300,200)
（猜一猜：哪一个椭圆，哪一个圆？）(x,y)(x+g,y+g)g(x+2g,y+2g)同心圆是指圆心相同半径不同的圆。如何画同心圆 如果用变量g表示相邻的同心圆之间的半径差，变量d 表示圆的直径，则上面的三个由外到里的同心圆的坐标分别是（x,y），（x+g,y+g），（x+2g,y+2g）。
如何画同心圆
下面是（由外到里）画同心圆的程序：

g=20
d=400
x=100
y=100
While d>1
GraphicsWindow.DrawEllipse(x,y,d,d)
d=d-2*g
x=x+g
y=y+g
EndWhileg表示相邻的同心圆之间的半径差d 表示最大圆的直径最大圆x坐标最大圆y坐标这里的d表示从外往里的第2个圆、第3个圆……的直径这里的x表示从外往里的第2个圆、第3个圆……的x坐标这里的y表示从外往里的第2个圆、第3个圆……的y坐标画圆的格式变量d控制循环，每次循环都减少2*g，直到d>1不成立时结束直径为d直径为d-2g分析图小试身手仿照课本P36画同心圆的程序画一组同心圆。
画同心圆的参巧程序（课本P36）：
g=10
d=200
x=100
y=100
While d>1
GraphicsWindow.DrawEllipse(x,y,d,d)
d=d-2*g
x=x+g
y=y+g
EndWhile
1、画（椭）圆的程序：
GraphicsWindow.DrawEllipse(a , b ,width , height )
2、画同心圆的循环语句：
While……
EndWhile知识小结附：同心正方形程序
g=8
d=110
x=100
y=100
While d>1
GraphicsWindow.DrawRectangle(x,y,d,d)
d=d-2*g
x=x+g
y=y+g
EndWhile
附：同心圆程序

g=8
d=110
x=100
y=100
While d>1
GraphicsWindow.DrawEllipse(x,y,d,d)
d=d-2*g
x=x+g
y=y+g
EndWhile
课外作业 利用本节课所学到知识画出下面图形（提示画同心正方形DrawRectangle的程序与画同心圆相似）。再见！