第十一讲 过程的递归调用（wwl 1）.pptVIP

第十一讲 过程的递归调用（1） * 我们要做的事情 用递归调用的过程画出正多边形和各种螺旋线。 1.什么是递归调用 TO YUAN1 :R FD PI*:R/180 RT 1 YUAN1 :R END 按下CTRL+G键，观察小海龟的动作有什么变化？ 放慢速度 TO YUAN2 :R FD PI*:R/180 RT 1 WAIT 1 YUAN2 :R END WAIT等待命令+时间 2.用递归调用的过程画图 （1）画正多边形 TO ZSJX :A FD :A RT 120 WAIT 50 ___________ END ZSJX :A 编写画正N边形的递归调用过程 TO ZNBX :A :N FD :A RT 360/:N WAIT 50 ZNBX :A :N END 试一试 to dj :a :b repeat:b[fd :a rt 360/:b] wait 100 dj :a :b+1 end to ttu :a :b cs lt 90 dj :a :b end (2)画螺旋线 TO LX :A FD :A RT 120 WAIT 50 LX :A+10 END 画最长边长为150的四边形螺旋线 画一个四边形螺旋线，边长每次增加3，最长的边长为150。当小海龟画出规定的最长边长后，怎么样才能让它自动停止运行过程呢？ 画最长边长为150的四边形螺旋线 TO SBX :A IF :A150 THEN STOP FD :A RT 90 SBX :A+3 END 命令 1、停止命令： STOP 2、条件命令： IF 条件表达式 THEN 命令 条件表达式成立时，先执行THEN后面的命令，再执行下一条命令；当条件表达式不成立时，就直接执行下一条命令。 条件运算符号 等于 大于 大于或等于 小于 小于或等于 = = = 试一试 若变量A大于或等于100，就停止过程的执行：______________ 若变量A等于100，就让小海龟返回母位：______________ 让小海龟画出最长边长为120的三角形螺旋线_____________ 各显神通 左两个图中，边长的递增量为2，最长边长为80； 右两个图中，边长的递增量为6，最长边长为160。 类五角星 to wjx :a fd :a rt 180-180/5 wait 50 wjx :a+6 end to wjx :a fd :a rt 180-180/7 wait 50 wjx :a+6 end 类七角星 用递归调用的过程画扩展图形 画最大半径为50、半径的递增量为10的同心圆。 TO TXY :R IF :R50 THEN STOP STAMPOVAL :R :R TXY :R+10 END 画圆形贝壳 TO LXY :R IF :R50 THEN STOP REPEAT 36[RT 5 FD PI*:R/18 RT 5] LXY :R+10 END 试一试 用递归调用的过程画螺旋图形 编写画圆海螺的递归调用过程 TO XHL :R IF :R50 THEN STOP REPEAT 36[RT 5 FD PI*:R/18 RT 5] RT 10 XHL :R+1 END 编写递归调用的过程，画出下面的图案