LOGO语言程序设计综合练习（四）.docVIP

PAGE PAGE 20 2006年顺德区LOGO语言程序设计比赛练习题四 一、填充题 1、画正八边形 TO POLY :S REPEAT? ????????? [FD? :S? RT? :????????? ] 2、画圆 TO? CIRXLE? :R REPEAT 36[FD ?????? ? RT?? ?????????? ] END 3、画空心正五角星 TO? KSTAR? :S REPEAT? 5[FD? :S?? RT? ???? ? FD? :S? LT? ???? ] END 4、分割正三角形 TO? FG? :S? :N IF? :N=0? ??????? REPEAT 3[FD? :S?? RT? 120? ????? ] END 二、图：正方形边长80，最小的三角形边长30，三角形逐个增在1.5倍，主程序feng。 to fengmake n 30repeat 4[fd 80 repeat 3[fd :n rt 120]make n :n*1.5 rt 90]end 三、如图：主程序feng1 : m :n，m为三角形串数，n三角形个数；柄长为20，最小的三角形边长为20，边长逐个增大1.2倍。执行feng1 5 4，有如图结果。to sjx :srepeat 3[fd :s rt 120]endto sjd :nmake s 20fd 20 lt 90 fd 10 rt 120 sjx :srepeat :n-1[fd :s lt 120 make s :s*1.2 fd :s/2 rt 120 sjx :s]end?to feng1 :m :nmake h 360/:mmake k 0repeat :m[sjd :n pu setxy[0 0] make k :k+:h seth :k pd]end 四、如图三角堆：三角形边长20，:n为层数，当执行feng2 5时有如图。57、to aarepeat 3[fd 20 rt 120]endto aa1 :nif :n=0 stoprepeat (2*:n-1)[aa fd 20]bk 20 make n (:n-1) make m 20*(2*:n-1)?bk :m rt 60 pu fd 20 lt 60 bk 10 pdaa1 :nendto feng2 :nlt 90 aa1 :nend 五、Tree是一个画图三叉树的递归过程，树根到分支处部分称为树干，参数N为树干的长度，分支出的3棵子树的高为N/2一、Tree是一个画图三叉树的递归过程，树根到分支处部分称为树干，参数N为树干的长度，分支出的3棵子树的高为N/2.5。[说明tree3过程中若N不小于3时，先画出树干，左转60度，再画三棵子树，最后退到树的根部。Tree 120 执行以下过程。 To tree3 :nIf :n3 stop?fd :n lt 60repeat 3[tree3 :n/2.5 rt 60]lt 120bk :nendto tree :nbk :ntree3 :nend 六、由大到小的糖葫芦P为串数，M为个数。最大的为10，一个比一个小0.8 。当执行THL 6 5时有以下结果: to aa :ostampoval :o :oendto aa2 :mmake o 10fd 20 pu fd 10 pdrepeat :m[aa :o pu fd 1.8*:o make o :o*0.8 pd]pu setxy[0 0]pdendto THL :p :mrepeat :p[aa2 :m rt 360/:p]end 七、递归图形： 图A至图B是一LOGO递归程序在尺寸参数为10时所画的0级、1级、2级和3级图形。请你编写一个递归程序，这个递归程序带有两个参数，一个级数参数，一个是尺度参数，它能画出全部上述形状的图形，若你的递归程序只有一个过程则最好。 to bb :n :srepeat 2[aa :n :s lt 90 fd :s lt 90]endto aa :n :sif :n=0 [fd :s rt 90 fd :s lt 90 fd :s lt 90 fd :s rt 90 fd :s stop]aa :n-1 :srt 90 fd :s lt 90 fd :s rt 90aa :n-1 :slt 90 fd :s lt 90aa :n-1 :srt 90 fd :s lt 90 fd :s rt 90aa :n-1 :send 八、请设计一个海龟挂旗的程序，要求如下： 1、海龟从地面画出一杆表示40米高的垂直旗杆，然后返回地面。 2