logo试题

太仓市小学生信息技术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