1、2010 年顺德区 LOGO 语言程序设计比赛复赛试卷（说明：考试时间 90 分钟，需交答题电子文档，并将答题写在本卷上）题号 一 二 三 四 五 六 总分得分一、 （12 分）画图 1.1 所示的图形图 1.1二、 （16 分）编写过程画一个笑脸图，如图 2.1 所示。TO SMILE :ADRAWSTAMPOVAL :A :APU BK :A/2RT 90REPEAT 9 FD :A/14 LT 5 PDREPEAT 18RT 5 BK :A/14PUREPEAT 9 FD :A/14 LT 5 LT 90 FD :A*0.9LT 90 FD :A*0.4 PD(STAMPOVAL :A/
2、10 :A/10 “TRUE) PU BK :A*0.8 PD(STAMPOVAL :A/10 :A/10 “TRUE) PU HOMEEND 运行：SMILE 100评分：每个圆 4 分，圆弧也是 4 分，如果眼睛不对称扣 3 分，嘴巴画歪了扣 3 分，三、 （16 分）求 11000 这 1000 个数中不能被 7 整除的数之和。要求：编写过程计算结果，并将调用过程计算的命令写出来。TO QIUHE :N :T :IIF :N1000 PR :T STOPIF :I7 THEN MAKE “T :T+:NIF :I=7 THEN MAKE “I 0QIUHE :N+1 :T :I+1END
3、运行 QIUHE 1 0 1 结果 429429评分：结果正确满分，不正确 0 分四、 （16）如下图，用一些完全相同的小棒，摆成由许多小等边三角形组成的大等边三角形，如果这个大等边三角形的底边一共用了：N 根小棒，那么完成这个图形的拼摆，一共要用多少根小棒？编写过程计算并画出图形。TO SJX :N :B :TIF :N=0 THEN PR :T STOPREPEAT :NREPEAT 2FD :B RT 120 RT 120 RT 60 BK :N*:BLT 60 FD :BSJX :N-1 :B :T+3*:NEND运行 SJX 6 10 0评分：画图 8 分，计算结果 8 分五、 （2
4、0 分）编写过程，画如图 4.1 所示的黑白相间的正六边形。RT 90REPEAT 5FD 40 LT 72 FD 40 RT 144评分：如果方向错误扣 3 分to hsj :Brepeat 6 repeat 3fd :B/3 rt 120 rt 30 pu fd :b/6 pd fill bk :B/6 lt 30 rt 60endto sj :N :Bif :N=0 THEN HSJ :B stoprepeat :NREPEAT 2FD :B rt 120 rt 120rt 60 REPEAT :Nhsj :B bk :B HSJ :Blt 60 fd :Bsj :N-1 :Bendto
5、 main :N :Bcs rt 30repeat 6sj :N :B bk :N*:B rt 60end例如：MAIN 0 30 MAIN 1 30 MAIN 2 30评分：六、 （20 分）设计一个模拟时钟的程序 SZ :s :f :m，其中 s 表示小时，f 表示分钟，m 表示秒钟。要求：能模仿时钟运动。例如输入 SZ 11 15 37，能画一个时钟，从 11 时 15 分 37 秒开始走时。to bp setpc 12setw 3stampoval 80 80 repeat 12pu fd 70 pd fd 10 pu bk 80 pd rt 360/12 pu lt 30 fd 90 pd (stampoval 10 10) pu homepu rt 30 fd 90 pd (stampoval 10 10) pu homepu fd 70 pd (stampoval 10 10) pu homepdsetw 2setpc 0 end to biao :s :f :m cs bp rt 360/43200*(:s*3600+:f*60+:m) fd 40 home rt 360/3600*(:f*60+:m) fd 60 home rt 360/60*(:m) fd 80 home wait 100 biao :s :f :m+1 end运行：biao 11 15 37
