第四届1logo

辽宁赛区小学组复赛试题（3小时完成）

一、编程画出下列图形。（每图6分共计36分）

过程名分别为：TUA、TUB、TUC、TUD、TUE、TUF。图形大小自定，文件名定为98j1。

二、 已知某数是2、3、5的倍数，被11除余10，被13除余7，被17除余9，求满足条件的最小自然数。要求：该题主过程名定为QSHU，文件名为98j2。（14分） 三、 编程画出如下图渐变画螺旋图。（15分） 要求：主过程名为JBYLX，存盘文件名为98j3。

参考值：起始圆半径为5 终了圆半径为120 渐变圆半径增值为3 转角为8

四、 编程画出下图。（15分）

要求：1、每朵花的颜色要不同。图案的大小自定； 2、该题的主过程名为HUA，存盘文件名为98j4。 提示：使用多龟绘图。

五、编写能画出任意边长和任意角数的多角星的程序。（20分） 要求：设角数为N（N为自然数），边长为S，给定N和S的值后，程序能画出N角星。如果有多个角度不同的N角星，要全部画出；如给定的N值画不出对应的角星则输出“NO”的信息。该题的主过程名为HDJX，存盘文件名定为98j5。 提示：一笔画多角星的关键是计算出海龟旋转的角度，设N为角数，K为大于1小于N/2的自然数且K与N无公约数，A为旋转角度，则：A=360＊K/N。 六、附加题：编程画一幅你喜欢的图形。（不评分，只做评奖参考） 要求：主过程名为：FJIA。存盘文件名为：98j6。

参考答案：以下解答由浦丕志设计完成，仅供参考。pupizhi@163.net 一、过程名分别为：TUA、TUB、TUC、TUD、TUE、TUF。 TO TUA RT 18

REPEAT 5[FD 60 RT 360*2/5] END

TO TUB RT 18

REPEAT 5[FD 40 RT 360*2/5 FD 40 LT 360*2/5-360/5] END

TO TUC

REPEAT 5[REPEAT 27[FD 20*.174 RT 10] LT 270-360/5] END

TO TUD

REPEAT 8[REPEAT 27[RT 5 FD 10*.174 RT 5] LT 270-360/8] END

TO TUE

REPEAT 8[REPEAT 3[FD 50 RT 120] RT 360/8] END

TO TUF

(FOR \"I 1 9 [STAMPRECT 5*:I 5*:I PU BK 5 LT 90 FD 5 RT 90 PD] 2) END

二、

TO QSHU A 1 END

TO A :X

MAKE \"A REMAINDER :X 11 MAKE \"B REMAINDER :X 13 MAKE \"C REMAINDER :X 17

IF (AND :X/30=INT(:X/30) :A=10 :B=7 :C=9) THEN PR :X STOP) A :X+1 END

三、编程画出如下图渐变画螺旋图。 TO JBYLX A 5 END

TO A :R

IF :R>120 STOP

REPEAT 36[FD :R*.174 RT 10] RT 8 A :R+3 END

四、使用多龟绘图 TO HUA DRAW

TELLALL 1 5

EACH [SETPC WHO SETH WHO*360/5 REPEAT 9[FD 60*.174 RT 10] REPEAT 5[REPEAT 2[REPEAT 9[FD 20*.174 RT 10] RT 180-90]RT 30]] END