LOGO递归编程实例1.docVIP

LOGO递归编程实例1 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 ZF 120 ZF 120 80 ZF 120 50 ZF 120 10 TO ZF :A :B IF :A:B STOP REPEAT 4[FD :