LOGO递归编程实例1
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1 LOGO 递归编程实例(sh íl ì)一
一、套圆1
TO O1 :A
IF :A<20 STOP
REPEAT 2[REPEAT 18[RT 5 FD :A*PI/18 RT 5]O1 :A/2] END
展开(zh ǎn k āi)写法：
TO O1 :A
IF :A<20 STOP
REPEAT 18[RT 5 FD :A*PI/18 RT 5]
O1 :A/2
REPEAT 18[RT 5 FD :A*PI/18 RT 5]
O1 :A/2 END
二、套圆2
TO O2 :A
IF :A<30 STOP
REPEAT 4[REPEAT 9[RT 5 FD :A*PI/18 RT 5]O2 :A/2] END
展开(zh ǎn k āi)写法：
TO O2 :A
IF :A<30 STOP
REPEAT 9[RT 5 FD :A*PI/18 RT 5]
O2 :A/2
REPEAT 9[RT 5 FD :A*PI/18 RT 5]
O2 :A/2
REPEAT 9[RT 5 FD :A*PI/18 RT 5] O2 :A/2 O1 200 O2 200 O2 100
2
REPEAT 9[RT 5 FD :A*PI/18 RT 5]
O2 :A/2
END
三、递归三角形1
TO SJ :A :B
IF :A<:B STOP
REPEAT 3[FD :A RT 120 SJ :A/2 :B]
END
展开(zh ǎn k āi)写法：
TO SJ :A :B
IF :A<:B STOP
FD :A RT 120
SJ :A/2 :B
FD :A RT 120
SJ :A/2 :B
FD :A RT 120
SJ :A/2 :B
END
四、递归三角形2
TO SJX :A :N
IF :N=0 STOP
REPEAT 3[FD :A/2 LT 120 SJX :A/2 :N-1 RT 120 FD :A/2 RT 120] END
SJ 120 80 SJ 120 50 SJ 120 5
CS LT 30 SJX 100 4
CS LT 30 SJX 100 1 CS LT 30 SJX 100 2
五、递归正方形1
TO ZF :A :B
IF :A<:B STOP
REPEAT 4[FD :A RT 90 ZF :A/2 :B] END
展开(zhǎn kāi)写法：
TO ZF :A :B
IF :A<:B STOP
FD :A RT 90
ZF :A/2 :B
FD :A RT 90
ZF :A/2 :B
FD :A RT 90
ZF :A/2 :B
FD :A RT 90
ZF :A/2 :B
END
六、三角(sānjiǎo)塔
画法(huà fǎ)一：
TO SJT :A :N
IF :N=0 STOP
REPEAT :N[FD :A RT 120 FD :A LT 120]
LT 120 FD :A*:N RT 120 FD :A
SJT :A :N-1
END
画法(huà fǎ)二：
TO SJT :A :N
REPEAT 3[SJ :A :N FD :A*:N RT 120] END
TO SJ :A :N
IF :N=0 STOP
REPEAT 3[FD :A*:N RT 120]
SJ :A :N-1
END ZF 120 80
ZF 120 50 ZF 120 10
CS RT 30 SJT 30 6
3
画法(huà fǎ)三：
TO SJT :A :N
IF :N=0 STOP
SJ :A :N
RT 60 BK :A LT 60 BK :A*(:N-1)
SJT :A :N-1
END
TO SJ :A :N
IF :N=0 STOP
REPEAT 4[FD :A LT 120]RT 120
SJ :A :N-1
END
七、套圆
尾递归画法(huà fǎ)：
TO YUAN2 :A :N
IF :N=0 STOP
REPEAT 54[LT 5 FD :A*PI/18 LT 5]
YUAN2 :A*.7 :N-1
END
中部(zhōnɡ bù)递归画法：
TO YUAN2 :A :N
IF :N=0 STOP
REPEAT 18[LT 5 FD :A*PI/18 LT 5]
YUAN2 :A*.7 :N-1
REPEAT 18[LT 5 FD :A*PI/18 LT 5] END
八、方形和弧线
TO FYH :A :N
IF :N=0 STOP
REPEAT 4[FD :A RT 90]
REPEAT 9[RT 5 FD :A*PI/18 RT 5]
FYH :A*.618 :N-1
END CS YUAN2 120 7 CS FYH 100 7
4
九、树
尾递归：
TO SHU :A
IF :A<5 STOP
FD 20 BK 10 LT 50 FD :A BK :A
RT 100 FD :A BK :A LT 50
SHU :A-4
END
中部(zhōnɡ bù)递归：
TO SHU :A
CS SHU 60 IF :A<5 STOP
FD 20 BK 10 LT 50 FD :A BK :A RT 50
SHU :A-4
RT 50 FD :A BK :A LT 50 BK 10
END
内容总结
5。