太仓市小学生信息技术LOGO语言程序设计试题
比赛要求:
1.在D盘新建一个以自己抽签命名的文件夹
2.每道题保存在自己签号的文件夹,文件名即为题号
3.每道题需定义过程.如第一题,主过程名为E1,如需定义子过程,子过程名为E11、E12、E13……;第二题,主过程名为E2,子过程名为E21、E22、E23……;以此类推。
4.作图时的尺寸,看清标注;无标注则自行定义。
题目:
1.绘制“十字”,如下图,宽度为50海龟步。(20分)
2.绘制如图有六叶花瓣的花朵。(20分)
3.绘制如下海螺状图形。(30分)
4.编写一个过程E4 :M :N,执行该过程时能连续画出正N边形、正N-1边形……正三角形。例如执行E4 50 10 画出如下图形:(30分)
学生1答案
to e1
draw repeat 4[repeat 5[fd 50 rt 90]lt 180]
end
to e2
draw rt 30 repeat 6[repeat 2[repeat 60[fd 1 rt 1]rt 120]rt 60]lt 30
end
to e3
draw make "e3a 1
e31
end
to e31
if :e3a > 100 stop
fd :e3a bk :e3a rt 360/100
make "e3a :e3a + 1
e31
end
to e4 :m :n
draw make "m :m make "n :n make "i 3
e41
end
to e41
if :i > :n stop
repeat :i[fd :m rt 360/:i]
make "i :i + 1]
e41
end
学生2答案
TO E1
REPEAT 5[REPEAT 4[FD 50 RT 90]RT 90 FD 50]
END
TO E2
REPEAT 6[REPEAT 2[REPEAT 60[FD 1 RT 1]RT 120] RT 60]
END
TO E3
E31 100
END
TO E31 :B
IF :B<1 THEN STOP
FD :B BK :B LT 7.5
E31 :B-2
END
TO E4 :B :N
IF :N<1 THEN STOP REPEAT :N[FD :B RT 360/:N] E4 :B :N-1
END