2010年顺德区LOGO语言程序设计比赛复赛试卷...docVIP

... ... 2010年顺德区LOGO语言程序设计比赛复赛试卷 （说明：考试时间90分钟，需交答题电子文档，并将答题写在本卷上） 题号 一 二 三 四 五 六 总分 得分 一、（12分）画图1.1所示的图形 RT 90REPEAT 5[FD 40 LT 72 FD 40 RT 144]评分： RT 90 REPEAT 5[FD 40 LT 72 FD 40 RT 144] 评分：如果方向错误扣3分 图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 18[RT 5 BK :A/14] PU REPEAT 9 [FD :A/14 LT 5 ] LT 90 FD :A*0.9 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 :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 :N[REPEAT 2[FD :B RT 120] RT 120] RT 60 BK :N*:B LT 60 FD :B SJX :N-1 :B :T+3*:N END 运行 SJX 6 10 0 评分：画图8分，计算结果8分 五、（20分）编写过程，画如图4.1所示的黑白相间的正六边形。 to hsj :B repeat 6[ repeat 3[fd :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 :N[REPEAT 2[FD :B rt 120 ] rt 120] rt 60 REPEAT :N[hsj :B bk :B] HSJ :B lt 60 fd :B sj :N-1 :B end to main :N :B cs rt 30 repeat 6[sj :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秒开始走时。 to bp setpc 12 setw 3 stampoval 80 80 repeat 12[pu 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