LOGO递归编程实例1

1、O1 200O2 200LOGO递归编程实例一一、套圆1TO 01 :AIF :A<20 STOPREPEAT 2REPEAT 18RT 5 FD :A*PI/18 RT 501 :A/2 END 展开写法：TO O1 :AIF :A<20 STOPREPEAT 18RT 5 FD :A*PI/18 RT 5O1 :A/2REPEAT 18RT 5 FD :A*PI/18 RT 5O1 :A/2END二、套圆2TO O2 :AIF :A<30 STOPREPEAT 4REPEAT 9RT 5 FD :A*PI/18 RT 5O2 :A/2 END展开写法：TO O2 :AIF

2、 :A<30 STOPREPEAT 9RT 5 FD :A*PI/18 RT 5O2 :A/2REPEAT 9RT 5 FD :A*PI/18 RT 5O2 :A/2REPEAT 9RT 5 FD :A*PI/18 RT 5O2 :A/2REPEAT 9RT 5 FD :A*PI/18 RT 502 :A/2ENDSJ 12080三、递归三角形1TO SJ :A :BIF :A<:B STOPREPEAT 3FD :A RT 120 SJ :A/2 :BENDSJ 120 50SJ 1205展开写法：TO SJ :A :BIF :A<:B STOPFD :A RT 120SJ

3、 :A/2 :BFD :A RT 120SJ :A/2 :BFD :A RT 120SJ :A/2 :BEND四、递归三角形2TO SJX :A :NIF :N=0 STOPREPEAT 3FD :A/2 LT 120 SJX :A/2 :N-1 RT 120 FD :A/2 RT 120 END9SihCS LT 30 SJX 100 1CS LT 30 SJX 100 2CS LT 30 SJX 100 4ZF 12080五、递归正方形1TO ZF :A :BIF :A<:B STOPREPEAT 4FD :A RT 90 ZF :A/2 :BEND 展开写法：TO ZF :A :B

4、IF :A<:B STOPZF 12050ZF 12010FD :A RT 90ZF :A/2 :BFD :A RT 90ZF :A/2 :BFD :A RT 90ZF :A/2 :BFD :A RT 90ZF :A/2 :BEND六、二角塔画法一：TO SJT :A :NIF :N=0 STOPREPEAT :NFD :A RT 120 FD :A LT 120LT 120 FD :A*:N RT 120 FD :ASJT :A :N-1END画法二：TO SJT :A :NREPEAT 3SJ :A :N FD :A*:N RT 120 ENDTO SJ :A :NIF :N=0 S

5、TOPREPEAT 3FD :A*:N RT 120SJ :A :N-1END画法三：TO SJT :A :NIF :N=0 STOPSJ :A :NRT 60 BK :A LT 60 BK :A*(:N-1)SJT :A :N-1ENDTO SJ :A :NIF :N=0 STOPREPEAT 4FD :A LT 120RT 120SJ :A :N-1END七、套圆尾递归画法：CS YUAN2 1207TO YUAN2 :A :NIF :N=0 STOPREPEAT 54LT 5 FD :A*PI/18 LT 5YUAN2 :A*.7 :N-1END中部递归画法：TO YUAN2 :A :N

6、IF :N=0 STOPREPEAT 18LT 5 FD :A*PI/18 LT 5YUAN2 :A*.7 :N-1REPEAT 18LT 5 FD :A*PI/18 LT 5END八、方形和弧线CS FYH 1007TO FYH :A :NIF :N=0 STOPREPEAT 4FD :A RT 90REPEAT 9RT 5 FD :A*PI/18 RT 5FYH :A*.618 :N-1END九、树尾递归：TO SHU :AIF :A<5 STOPFD 20 BK 10 LT 50 FD :A BK :ART 100 FD :A BK :A LT 50SHU :A-4END中部递归：TO SHU :AIF :