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

2006年顺德区LOGO语言程序设计比赛练习题四一、填充题1、画正八边形TO POLY :SREPEAT FD :S RT : 2、画圆TO CIRXLE :RREPEAT 36FD RT END3、画空心正五角星TO KSTAR :SREPEAT 5FD :S RT FD :S LT END4、分割正三角形TO FG :S :NIF :N=0 REPEAT 3FD :S RT 120 END二、图：正方形边长80，最小的三角形边长30，三角形逐个增在1.5倍，主程序feng。to fengmake n 30repeat 4fd 80 repeat 3fd :n rt 120make n :n*1.5 rt 90end三、如图：主程序feng1 : m :n，m为三角形串数，n三角形个数；柄长为20，最小的三角形边长为20，边长逐个增大1.2倍。执行feng1 5 4，有如图结果。to sjx :srepeat 3fd :s rt 120endto sjd :nmake s 20fd 20 lt 90 fd 10 rt 120 sjx :srepeat :n-1fd :s lt 120 make s :s*1.2 fd :s/2 rt 120 sjx :sendto feng1 :m :nmake h 360/:mmake k 0repeat :msjd :n pu setxy0 0 make k :k+:h seth :k pdend四、如图三角堆：三角形边长20，:n为层数，当执行feng2 5时有如图。57、to aarepeat 3fd 20 rt 120endto aa1 :nif :n=0 stoprepeat (2*:n-1)aa fd 20bk 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 stopfd :n lt 60repeat 3tree3 :n/2.5 rt 60lt 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 :maa :o pu fd 1.8*:o make o :o*0.8 pdpu setxy0 0pdendto THL :p :mrepeat :paa2 :m rt 360/:pend七、递归图形：图A至图B是一LOGO递归程序在尺寸参数为10时所画的0级、1级、2级和3级图形。请你编写一个递归程序，这个递归程序带有两个参数，一个级数参数，一个是尺度参数，它能画出全部上述形状的图形，若你的递归程序只有一个过程则最好。to bb :n :srepeat 2aa :n :s lt 90 fd :s lt 90endto aa :n :sif :n=0 fd :s rt 90 fd :s lt 90 fd :s lt 90 fd :s rt 90 fd :s stopaa :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、等待输入挂旗的高度（10-40米）3、根据输入的高度在旗杆上画出一面高5米，宽8米的旗，然后返回地面。（假设所走的步为一米，旗杆粗（宽）为两步）。to mainbarget_highflagendto barlt 90 fd 200 bk 400 fd 200 rt 90setwidth 2fd 200 bk 200setwidth 1endto get_hightype high=make h rlif :h= pr wong get_high stopmake h first :hif not number? :h pr wong get_high stopif or :h40 pr wong get_high stopendto flagfd 5*:hrepeat 2rt 90 fd 40 rt 90 fd 25bk 5*:hend1， 如图：画出10个有编号的彩色多边形，多边形边数由3边至12边。围绕中心分布。2,如图由1至55数字组成10行的图形，每行数字的个数与其所在的行数相同，且图形慢慢绕中心旋转360度。3,如图由多个彩圆围成的图形每个圆上都有一个序号，中间由花纹填充，其圆的个数由键盘输入来确定。 （1） （2） （3）图中ABCDEF为正六边形（六条边六个内角都相等），以它的各边为一边向外画正方形可得。要求以logo语言画出这个图形，最后必须隐藏海龟。雨伞TO HU :D :RREPEAT :DRT 5 FD 0.174*:R RT 5ENDTO SANHTHU 18 60RT 90 PU FD 120 RT 90 PDREPEAT 3HU 18 20 RT 180PU FD 60 SETX XCOR-60 PD FD 8 BK 8 PU BK 40 PD BK 80RT 180HU 18 20END分析：这把伞是由四个半圆弧和直线组成，若大的半圆弧半径为60，则中的半圆弧的半径20，柄长为着80，柄顶为8。 SAN为主过程，HU制作弧为子过程。梅花to hb :rrepeat 18rt 5 fd :r*0.174 rt 5end to hua :rrepeat 5lt 90 hb :r lt 18endto hx :r repeat 5fd :r*3/2 bk :r*3/2 rt 36 fd :r*3/4 bk :r*3/4 rt 36endto mh :rhua :rpu vx :r fd :r *0.4 pd hx :r lt 54endto vx :rrepeat 9rt 5 fd :r*0.174 rt 5end（尾递归）TO DBX1 :N :D :S :J :ZIF :N=0 STOPREPEAT :DFD :S RT 360/:DRT :JDBX1 :N-1 :D :S+:Z :J :ZEND 这个递归过程共带了5个参数。其中参数:N控制递归的次数，:D表示海龟画多边的边数，:S表示多边形的边长，:J表示画完一个多边形后海龟右转的角度，:Z则表示递归调用时边长的增加量。 显示，DBX1过程在递归调用时改变了赋给参数：S的值，这使得在执行这个过程时逐级的递归调用中，每递归一级，：S的值就增加：Z。也就使得海龟画出的多边形的边逐级变化了。 下面是执行该过程时，赋给不同的变量值所得到的结果。CS DBX1 20 3 10 30 5 CS DBX1 20 4 10 30 4CS DBX1 20 18 10 0 1 CS DBX1 20 5 30 36 0（尾递归二）TO ZFX :N :SIF :N=0 STOPREPEAT 4FD :S RT 90ZFX :N-1 :S/2END这是执行ZFX 3 80的情况。ZFX是一个带参数的递归过程。其中，参数：N是表示海龟递归的次数，：S是正方形的边长。在这里连续执行调用自己，当N=0时，停止ZFX 0 10的过程并返回到ZFX 1 20的过程。由于ZFX 1 20的过程执行END，于是再返回到ZFX 2 40，依次类推，最后就画出上面的图形。读程序写结果：1.TOA:S:NIF:S20STOPREPEAT:NA1:S:NRT360/:NA:S-204ENDTOA1:X:BREPEAT:BFD:XRT360/:BEND2.TOB:XIF:X4STOPLT30SJX10FD10RT30C:N+1RT90FD10LT90C:N+1RT30BK10LT30ENDTOSJX:XREPEAT3FD:XRT120HTEND4.TOD:XIF:X20HTSTOPREPEAT5FD:XD:X/2RT144END5.TOE1:XREPEAT3FD:X*2LT90FD:XLT90LT90REPEAT3FD:XLT120LT90BK2*:XENDTOE:XIF:X:YHTSTOPREPEAT4FD:XRT90F1:X+1:YENDTOFREPEAT4F1020FD2020FD2090END7.TOG:XIF:X20HTSTOPLT45FD:XLT45G:X/2RT135FD:XLT45G:X/2RT135FD:XLT45G:X/2RT135FD:XRT135END8.TOH1:XREPEAT5FD:XRT90ENDTOH:XIF:X20OP_MAKE_T1_ :SENDTOT2:X:SSIF:X20_T2_:SSENDTOT3(PRZONG=_)END二、根据程序，写出结果：1.TOA:XIF:X5STOPSETCURSORSE:X13-:XPR*SETCURSORSE:X11+:XPR*A:X+1END2.TOB:X:YMAKEZ:YMAKEX:YMAKEY:ZMAKEZ:X+:Y*100(PR:Y*180+:X=:Z)END3.TOC:X:Y:NIF:X3*:ATHENSTOPMAKEA:A+1MAKEB:B+:AE1:AEND6.TOF:NTYPE:NIF:N=0STOPMAKEN:N-1F:N-1TYPE:NTYPE0END执行F4三、编写下列程序：1.编写一个通用的求S=1+3+5+(2n-1)-1/2-1/4-1/2n的值的程序(其中n为100以内的自然数)。2.某农场引进一对刚出生的新品种兔子，从出生的第二个月后，每月新生一对兔子，新生的兔子也如此繁殖，如果所有的兔子都不死去，问到第12个月时，该农场共有这种兔子多少对？3.打印100以内能被5或7整除的数。数值计算部分（二）一、填空：1.将854000写成LOGO能识别的(用科学技术法表示的)指数形式是_。2.分别把十进制数34、175转换为二进制的数，得到_和_。3.把数学中的下列表达式改写成LOGO语言表达式：(32+13)-(10+5)8_X+Y4_4A-3B_4.把LOGO语言表达式改写成数学中的表达式：3*:A+2*:B-1(:A+:B)/(2*:A-:B)(:A+12)/:A+:B5.写出下列条件表达式的含义：:X=:Y+2NOT:X=14NOT:X20AND:X10:X10OR:X506.写出下列函数的值：函数表达式值函数表达式值INT:X+0.50.01*ROUND:X*100(INT:X*100+0.5)/100(ROUND:X/100)*100100*INT:X/100+0.5ROUND:X/100*100ROUND:X+10SQRT25REMAINDER164REMAINDER1847.能产生6至100之间(包括6和100)的随机数的表达式是。能产生6至100之间(包括6但不包括100)的随机数的表达式是。能产生6至100之间(包括6和100)带2位小数的随机数的表达式是。8.用两种不同的函数写出将3.1415926四舍五入到小数点后第四位的表达式是或。9.全局变量是指，局部变量是指。10.MAKE命令可以用来新的全局变量，也可以用来局部变量的值，但此时它并不能改变局部变量的。二、写出程序中缺少的LOGO表达式：找出满足要求的最简单的LOGO表达式，使运行下列程序时，能输出指定的一组数。程序：TOEX2:NIF:N16STOP(TYPECHAR32)EX2:N+1END1.要输出135791113151719212325272931处应填写2.要输出0.511.522.533.544.555.566.577.58处应填写3.要输出0000111111111122处应填写4.要输出1234501234501234处应填写5.要输出1223344556677889处应填写三、读程序，写出运行结果：1.TOEX3.1:N:X:SIF:N100PR:SSTOPMAKES:S+:XEX3.1:N+1:X+2:SEND执行EX3.11202.TOEX3.2:XIF:X8STOPPR:AEX3.3:B:C:A+:B+:C:N+1END执行TSEX3.311114.TOEX3.4:XIF:X=0OP1OP(EX3.4:X-2)*:XEND执行PREX3.4105.TOEX3.5:XIF:X2STOPTYPE:NEX3.6:N+1TYPE:NEX3.6:N+1TYPE:NEND执行EX3.61四、填空,完成下列过程：一个完全平方数减去100和另一个完全平方数减去168的结果相等，编程求出这两个数最小的可能值TOEX4:X:NMAKEY:X+IF(SQRT:Y)=INT(SQRT:Y)(PR:X:Y)STOPEX4:X+_:N+1END执行EX411结果为256324五、编程：1.编程求12+24+38+416+1010242.编程找出一个最大的N，使N!0.5MAKEX:X+18TYPE:X9MAKEX:Y10EX6.110*REMAINDER:A:B:B:N-111END问题：编号为1的这条LOGO命令的作用是：。编号为3的这条命令中变量:x的值是圆周率近似值的第位小数。编号为3的这条命令中求出的变量:x的值，是在子过程EX6.1中编号为的那条命令中输出的，这时候变量:N的值是。编号为8的命令的作用是。综合部分一、写出下列命令的缩写，没有的写“无”。PRINTOUTPUTCONTINUECLEARTEXTERASEIFTRUEPENUPBUTLASTHIDETURTLEIFFALSEREADCHARSETCURSOR二、写出下列命令的全称：TSSTSETH三、判断，在题后括号里打“”或“”：1.过程自己调用自己。()2.空字和空表都没有任何元素，所以它们相等：“=。()3.PR9+RANDOM10可以显示出从10到19十个两位数。()4.100*(int:y/100)+0.5可以把:Y四舍五入，精确到百位。()5.用RC命令，通过键盘输入单字符时，最后不需要按回车键。()四、填空：1.将-3.14写成日常计数法表示的形式是：-3.142.将0.000271写成LOGO语言指数形式表示的数是：2.71E-033.X不等于10的逻辑表达式是NOT:X=104.写出能产生大于9,不大于10,保留一位小数随机数的表达式是9+(RANDOM9)/105.写出能将:X四舍五入,保留两位小数的表达式是(INT:X*100+0.5)/1006.写出PRFIRSTFIRSTBFBFABCBCDCDEDEF的执行结果C8.如果:X是一个除以5余2的数，那么就把它打印出来，写出具有此功能的LOGO命令IF2=REMAINDER:X5THENPR:X9.PRWORDBFABLASTCDE的执行结果BE10.写出PRASCIIH的执行结果7211.写出PRFPUTLGBABFKKBA的执行结果LGBABA12.写出PRLISTLASTBUTFIRSTNBABUTFIRSTDEF的执行结果AEF13.写出SHOWLPUTLASTAABBBFBBAA的执行结果AABB14.写出PRWORD?LASTAADDRRDD的执行结果TRUE15.命令组TEST:X0IFFPR:XIFTPR-1*:X的功能置:X为负数五、写出下列程序执行的结果：1.TOT1:X:TIF:X1PR:TSTOPT1:X-1:T*:XEND执行T161显示：7202.TOT2:LIF:L=STOPTYPELAST:LT2BL:LEND执行T2ABCDEF显示：EFDCBA?3.TOT3:XIF:X1STOPPRROUND:XT3:X/10END执行T394832显示：9483294839489594.TOT4:X:YIF:X40FD:XBK:XSTOPSETX:XSETY:XSETY0SETX0T5:X+1SETX-1*:XSETX:XSETY0SETX0END执行T51显示：6.TOT6:X:KIF:X10RT180STOPREPEAT6FD:XRT90RT180T6:X/2-1*:KREPEAT9RT:KFD:X*0.174RT:KEND执行T6605显示：7.TOT7:X:Y:BIFAND0=REMAINDER:B:X0