1.3小海龟画正多边形综述.pptxVIP

1.3小海龟画正多边形 Turtle.Move(100) Turtle.Turn(120) Turtle.Move(100) Turtle.Turn(120) Turtle.Move(100) Turtle.Turn(120) 一、算法与流程图 正三角形程序1 正三角形程序2 S=3 Length=100 E=360/S Turtle.Move(Length) Turtle.Turn(E) Turtle.Move(Length) Turtle.Turn(E) Turtle.Move(Length) Turtle.Turn(E) 重复多少次？ 一、算法与流程图 算法 1、画一条边，右转120度； 2、画一条边，右转120度； 3、画一条边，右转120度。 流程图1 开始 流程图2 画一条边，右转120度 画一条边，右转120度 画一条边，右转120度 结束 重复多少次？假如是正五变形、正N变形呢？ 计数器i 开始 i=1 i=3 是 否 画一条边，右转120度 i增加1 结束 流程图图形 图形 名称 功能 开始/结束框 表示开始或结束 处理框 表示计算或处理等 判断框 表示条件判断 流程线 表示程序的执行顺序 二、For……EndFor循环语句 For i=1 to 3 step 1 Turtle.Move(100) Turtle.Turn(120) EndFor 程序(循环部分) For 循环变量=初值To 终值 [step 步长] 语句组 EndFor 程序(循环部分) 增加/减少步数 流程图2 开始 i=1 i=3 是 否 画一条边，右转120度 i增加1 结束 正N变形程序？ 画正12变形程序1 S=12 Length=50 E=360/S For i=1 to S step 1 Tutle.Move(Length) Turtle.Turn(E) EndFor 画正12变形程序2 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第一题：编写程序，画一个边越来越粗的正八边形。(提示：边的变化跟随着计数器变化) 任务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 第二题 S=4 Length=50 E=360/S GraphicsWindow.PenColor=“Red” For i=2 to Length step 2 Turtle.Move(i) Turtle.Turn(E) EndFor