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