logo递归编程实例1.docVIP

PAGE 1 LOGO递归编程实例一 一、套圆1 TO O1 :A IF :A20 STOP REPEAT 2[REPEAT 18[RT 5 FD :A*PI/18 RT 5]O1 :A/2] END O1 200 O1 200 TO O1 :A IF :A20 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 :A30 STOP REPEAT 4[REPEAT 9[RT 5 FD :A*PI/18 RT 5]O2 :A/2] O2 200O2 100 O2 200 O2 100 展开写法： TO O2 :A IF :A30 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 REPEAT 9[RT 5 FD :A*PI/18 RT 5] O2 :A/2 END SJ SJ 120 80 SJ 120 50 SJ 120 5 三、递归三角形1 TO SJ :A :B IF :A:B STOP REPEAT 3[FD :A RT 120 SJ :A/2 :B] END 展开写法： 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 CS LT 30 SJX 100 4 CS LT 30 SJX 100 4 CS LT 30 SJX 100 1 CS LT 30 SJX 100 2 ZF 120 ZF 120 80 ZF 120 50 ZF 120 10 TO ZF :A :B IF :A:B STOP REPEAT 4[FD :A RT 90 ZF :A/2 :B] END 展开写法： 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 六、三角塔 画法一： CS RT 30 SJT 30 CS RT 30 SJT 30 6 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 画法二： 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 画法三： 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 七、套圆 尾递归画法： CS YUAN2 120 7 CS YUAN2 120 7 IF :N=0 STOP REPEAT 54[LT 5 FD :A*PI/18 LT 5] YUAN2 :A*.7 :N-1 END 中部递归画法： 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 八、方形和弧线 CS FYH 100 7 CS FYH 100 7 IF :N=0 STOP REPEAT 4[FD :A RT 90] REPEAT 9