画螺旋线
——过程的递归调用
新课引入
一、画正三角螺旋线
例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 30 3
调用过程DBLX
DBLX 30 4
DBLX 30 5
(二)五角星螺旋线
TO WJXLX :a
IF :a>280 THEN STOP
FD :a RT 144
WJXLX :a+10
END
WJXLX 30
WJXLX 60
WJXLX 80
调用过程WJXLX :
0314画 螺 旋 线logo 来自淘豆网m.daumloan.com转载请标明出处.
