LOGO递归编程实例二
一、叠方形
尾递归：
TO FX :A
IF :A<10 STOP
REPEAT 6[FD :A RT 90]RT 180
FX :A/2
END
中部递归：
TO FX :A
那些年CS FX 80
IF :A<10 RT 180 STOP REPEAT 2[FD :A RT 90]RT 180
对外贸易经营者 FX :A/2
REPEAT 2[FD :A RT 90]RT 180
END
二、叠方形门
TO MEN :X
IF :X<10 RT 90 STOP
REPEAT 6[FD :X RT 90]LT 180
MEN :X/2
CS MEN 80
REPEAT 6[FD :X RT 90]LT 180最受欢迎的小说END
三、套三角形
TO TSJ :A :N
IF :N=0 STOP
REPEAT 3[FD :A/2 RT 60 TSJ :A/2 :N-1 LT 60 FD :A/2 RT 120]
END
四、套正方形
尾递归：
TO TFX :A
IF :A<10 STOP
REPEAT 6[FD :A RT 90]
TFX :A-10
END
TO TFX :A
IF :A<10 STOP
REPEAT 2[FD :A RT 90]
TFX :A-10
REPEAT 2[FD :A RT 90]
END
五、方形塔
功夫不好尾递归：
TO FXT :A
IF :A<10 STOP
REPEAT 5[FD :A RT 90]
FD :A*.2 LT 90
FXT :A*.6
END
中部递归：
IF :A<10 STOP
LT 90 FD :A/2 RT 90 FD :A RT 90 FD :A/2 LT 90
计量员是做什么的
FXT :A*.6
RT 90 FD :A/2 RT 90 FD :A RT 90 FD :A/2 RT 90
END
六、多层塔
TO DCT :A :N
IF :N=0 TAD :A STOP
REPEAT 3[FD :A RT 90]LT 90
BK :A*1.2 LT 45 FD :A*.4 RT 45 FD :A*.8 RT 180
DCT :A*.8 :N-1
BK :A*.8 RT 45 BK :A*.4 LT 45 FD :A*1.2
村支部书记述职报告
REPEAT 3[BK :A RT 90]RT 90
TO TAD :A
REPEAT 3[FD :A RT 90]LT 90
大暑节气 REPEAT 3[FD :A+3 LT 120 FD :A+3]
REPEAT 3[FD :A RT 90]LT 90
END
七、金字塔
TO JZT :A :N
IF :N=0 STOP
REPEAT :N[REPEAT 7[FD :A RT 90]RT 90]
FD :A LT 90 FD :A*:N-:A/2 RT 90
END
