150 likes | 795 Views
画 螺 旋 线. —— 过程的递归调用. 新课引入. 一、画正三角螺旋线. 例 1 :在过程“ SJLX” 中调用了它自己,试 推测“ SJLX 30” 能画出什么图形? TO SJLX :a FD :a RT 120 SJLX :a+10 END. (一)把“ SJLX 30” 展开来. FD 30 RT 120 FD 30+10 RT 120 FD 30+10+10 RT 120 FD 30+10+10+10 RT 120 FD 30+10+10+10 RT 120. 停止命令
E N D
画 螺 旋 线 ——过程的递归调用
一、画正三角螺旋线 例1:在过程“SJLX”中调用了它自己,试 推测“SJLX 30”能画出什么图形? TO SJLX :a FD :a RT 120 SJLX :a+10 END
(一)把“SJLX 30”展开来 FD 30 RT 120 FD 30+10 RT 120 FD 30+10+10 RT 120 FD 30+10+10+10 RT 120 FD 30+10+10+10 RT 120
停止命令 格式:STOP 功能:在过程中,当执行到这一条命令 时,就要立即停止过程的执行。 • “停止命令”能让这个程序,在适当的时候停下来。
(二)画正三角螺旋线的过程 TO SJLX :a IF :a>200 THEN STOP FD :a RT 120 SJLX :a+10 END
二、画其它形状的螺旋线 (一)正多边形螺旋线 TO DBLX :a :n IF :a>200 THEN STOP FD :a RT 360/:n DBLX :a+10 :n END
调用过程DBLX DBLX 30 3 DBLX 30 4 DBLX 30 5
(二)五角星螺旋线 TO WJXLX :a IF :a>280 THEN STOP FD :a RT 144 WJXLX :a+10 END
调用过程WJXLX : WJXLX 30 WJXLX 60 WJXLX 80
(三)圆形螺旋线 TO YUANLX :a IF :a>200 THEN STOP FD 3.14*:a/18 RT 10 YUANLX :a+0.5 END
调用过程YUANLX YUANLX 10 YUANLX 60 YUANLX 30
小 结 画正多边形螺旋线的三大步骤: 1. 适时停止; 2. 画一条边,并转到画下一条边的方向; 3. 增加适当的边长。
课内实践 按要求画出下面的图形: 起始边长为10, 边长每次增加5, 最长边长为100。 起始边长为10, 边长每次增加1, 最长边长为200。 起始边长为10, 边长每次增加4, 最长边长为100。