2010年顺德区小学LOGO语言程序设计比赛复赛试卷
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
2010年顺德区LOGO 语言程序设计比赛复赛试卷
一、(12分)画图1.1所示的图形
图1.1
二、(16分)编写过程画一个笑脸图,如图2.1所示。
TO SMILE :A DRAW
STAMPOV AL :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
(STAMPOV
AL :A/10 :A/10 "TRUE)
PU BK :A*0.8 PD
(STAMPOV AL :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 :N>1000 PR :T STOP
IF :I<7 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。