小学生LOGO语言程序设计比赛复赛试卷2参考答案

小学生LOGO语言程序设计比赛复赛试卷(90分钟，答案写在本卷上,位置不够可写到背面，交答题电子文档和本卷)题号一二三四五六总分得分一、（10分）编写过程画图1所示的图形ToONEfd5lt90repeat2[repeat9[fd5rt10]rt90]rt90fd10repeat2[repeat9[fd5rt10]rt90]fd30lt90repeat2[repeat9[fd5rt10]rt90]rt90fd5repeat2[repeat9[fd5rt10]rt90]bk80end图1运行：one二、（10分）编写带参过程画如图2所示形状的图形。要求：通过改变过程的参数，横向和纵向的正八边形的个数可以变化。tobbx:M:Lrepeat:M[repeat12[fd:Lrt360/8]rt180bk:L]repeat:M[repeat12[fd:Llt360/8]rt180bk:L]endtoTWO:M:N:Lrepeat:N[bbx:M:Lpurepeat2[fd:Lrt360/8]lt180-360/8fd:Lrt360/8pd]end图2运行：two4310三、有一块边长为：L的正方形材料。如图3.1所示。1、(15分)编写过程THREE：m：n：L，将它锯开成大小相同的小块（如图3.2所示）。其中：m表示横向黑色块的个数，：n表示纵向黑色块的个数，：L表示正方形材料的边长。toTHREE:m:n:Lcs(stamprect:L:L:true)setpc15repeat:m[rt90fd:L/:mlt90fd:Lbk:L]puhomepdrepeat:n[fd:L/:nrt90fd:Lbk:Llt90]setpc0end图3.1图3.2运行：two43102、(15分)编写过程MJ：m：n：L：K，计算锯开材料损失的面积（中间白色线所代表的面积）。其中：K为分割线的宽度。toMJ:m:n:L:Kcs(stamprect:L:L:true)setpc15setw:Krepeat:m[rt90fd:L/:mlt90fd:Lbk:L]puhomepdrepeat:n[fd:L/:nrt90fd:Lbk:Llt90]setpc0setw1(print[损失的面积：]:m*:L*:K+:n*:L*:K-:m*:n*:K*:K)end四、（15分）编写带参数的过程画如图4所示的“塔尖”。tofour:Rif:R1stopstampoval:R:Rpufd2pdfour:R*9/10end图4运行：four50五、（15分）编写过程FIVE:R，画一个小球沿着正方形墙内的边线绕行的动画。如图5所示。其中：R是小球的半径，正方形的边长是小球半径的10倍。toqiu:P:Rif:P:R*10thenbk:Rrt90makeP0(stampoval:R:Rtrue)wait10pe(stampoval:R:Rtrue)pufd:Rpdqiu:P+:R:RendtoFive:Rcsstamprect:R*12+1:R*12+1pufd:Rrt90fd:R+1lt90pdqiu0:Rend图5运行：five10六、（20分）有种奇妙的三位数称为“水仙花数”，它的各位数的立方之和等于这个数本身。例如153就是这样一个三位数：1×1×1+5×5×5+3×3×3=1+125+27=153请你找出所有的“水仙花数”。tos1:N:j1if:N-1000thenmakek1:j1stops1:N-100:j1+1endtos2:N:j2if:N-100thenmakek2:j2stops2:N-10:j2+1endtosix:Nif:N999thenstopmakek10s1:N0makek20s2:N-:k1*1000makek3:N-100*:k1-10*:k2if:k1*:k1*:k1+:k2*:k2*:k2+:k3*:k3*:k3=:Nthenprint:Nsix:N+1end镇：学校：姓名：考室：考号：机号：