Turtle.Move(Length)
Turtle.Turn(E) Turtle.Move(Length) Turtle.Turn(E) Turtle.Move(Length) Turtle.Turn(E)
一、算法与流程图
算法

流程图1
开始 画一条边，右 转120度 画一条边，右 转120度
S=4 Length=50 E=360/S GraphicsWindow.PenColor=“Red” For i=2 to Length step 2 Turtle.Move(i) Turtle.Turn(E) EndFor
表示计算或处理等
判断框
表示条件判断
流程线
表示程序的执行顺序
二、For……EndFor循环语句
流程图2
开始
程序(循环部分)
For i=1 to 3 step 1 Turtle.Move(100) Turtle.Turn(120) EndFor 否
i=1
i<=3 是 画一条边，右转120度
程序(循环部分)
流程图2
开始
1、画一条边， 右转120度；

2、画一条边， 右转120度；
3、画一条边， 右转120度。
i=1 否

i<=3 是 画一条边，右转120度
重复多少 次？假如 是正五变 形、正N变 形呢？
画一条边，右 转120度
结束 i增加1
结束
流程图图形
图形 ቤተ መጻሕፍቲ ባይዱ称
开始/结束框
功能
表示开始或结束
处理框
S=12 Length=50 E=360/S For i=S to 1 step -1 Tutle.Move(Length) Turtle.Turn(E) EndFor
自主练习

任务1：画正18变形，要求用For……EndFor循环语句

任务2：完成试一试P18第一题：编写程序，画一个边越来越粗的正八边形。(提 示：边的变化跟随着计数器变化)
1.3小海龟画正多边形
一、算法与流程图
正三角形程序1

正三角形程序2
重复多 少次？

Turtle.Move(100) Turtle.Turn(120) Turtle.Move(100)
S=3 Length=100 E=360/S


Turtle.Turn(120)
Turtle.Move(100) Turtle.Turn(120)
任务3：完成试一试P19第二题 任务4：完成试一试P19第三题

答案（P18-19试一试）
第一题

第二题

S=8 Length=50 E=360/S GraphicsWindow.PenColor=“Red” For i=1 to S step 1 GraphicsWindow.PenWidth=i Turtle.Move(Length) Turtle.Turn(E) EndFor
For <循环变量>=<初值>To <终值> [step <步长>]
<语句组>
结束
i增加1
EndFor
<增加/减 少步数>
正N变形程序？
画正12变形程序1

画正12变形程序2

S=12 Length=50 E=360/S For i=1 to S step 1 Tutle.Move(Length) Turtle.Turn(E) EndFor