log程序设计方案竞赛题及答案

1、图一图二1、（10分）写出画图一的命令答案：repeat 8fd 50 rt 360*3/8 fd 50 It 360*3/8-360/82、（10分）写出画图二的命令答案：repeat 8repeat 3fd 50 rt 120rt 360/8考查知识：重复命令的掌握。考察技能：使用重复命令画出重复的规则图形。评分标准：没有使用重复命令画图形的扣5分，只有使用难搞重复命令画出全部图形的才给10分。二、（15分）编写一个带三个变量的过程 dbx :n :k :be，使过程能画出一个由n个边长为be的正k变形Dbx10450答案：to dbx :n :k :berepeat :n repeat

2、:kfd :be rt 360/:krt 360/: nend考查知识：带变量的过程的使用考察技能：能灵活运用带变量的过程画出不同的图形main，当过程运行时，屏幕上会出现一道三、（15分）编写一个计算一位小数加减乘除的人机交互过程 一位小数的计算题，在你输入这道题的答案后，屏幕会提示你这道题目你是做对了还是做错了main41.44 - 5,6的商是多少？? 7,4你答对了 ！B. 1 X 8.9的积是多少丫? 64你答错了 ！5 x 3.8的积是多少？? 19你答对了 ！2.2 x 2.6的积是多少？? I参考答案：TO JFMAKE "A (RANDOM 100) * 0.1MA

3、KE "B (RANDOM 100) * 0.1(PR :A田:B 的和是多少？)MAKE "C READIF :C = :A + :B THEN PR 你答对了！ STOP PR 你答错了！ STOPENDTO JIFMAKE "A (RANDOM 100) * 0.1MAKE "B (RANDOM 100) * 0.1IF :A < :B THEN MAKE "D :A MAKE "A :B MAKE "B :D(PR :A - :B 的差是多少 ?)MAKE "C READIF :C = :A - :B

4、 THEN PR 你答对了！ STOPPR 你答错了！ STOPENDTO CFMAKE "A (RANDOM 100) * 0.1MAKE "B (RANDOM 100) * 0.1(PR :A X :B 的积是多少？)MAKE "C READIF :C = :A * :B THEN PR 你答对了！ STOPPR 你答错了！ STOPENDTO CHFMAKE "A (RANDOM 100) * 0.1MAKE "B (RANDOM 100) * 0.1MAKE "C :A * :B(PR :C - :B 的商是多少？)MAKE

5、"A READIF :C = :A * :B THEN PR 你答对了！ STOPPR 你答错了！ STOPENDTO MAINMAKE "K RANDOM 4IF :K = 1 THEN JFIF :K = 2 THEN JIFIF :K = 3 THEN CFIF :K = 4 THEN CHFMAINEND考查知识：随机数的灵活使用，尾递归的使用 考察技能：能灵活运用随机数产生随机小数，能进行数理分析 评分标准：能做出加减乘除法各给 3 分，总过程给 3 分。四、(15 分)编写过程画如下图形：参考答案：to taijirepeat 18bk 5 It 10repea

6、t 36fd 10 rt 10repeat 18fd 10 rt 10repeat 18fd 5 rt 10pu bk 20 pd fillhomert 90pu fd 5/0.174 pdsetpc 15(stampoval 10 10 "true)pu bk 5*2/0.174 pdsetpc 0(stampoval 10 10 "true)End考查知识：使用正36边形画圆弧 考察技能：灵活使用圆的半径X 0.174=正36边形的边长。评分标准：画出太极图形给10分，把黑白两个远点画到相应的位置给5分五、（15分）编写一个幸运大转盘的动画，如下图所示。转盘旋转一定的时

7、间后指针会停下来。参考答案：to yua npansetw 1homestampoval 100 100fd 100 bk 200fd 100 rt 90 fd 100 bk 200 homeendto hongpan setpc 12 yuanpan lt 45 pu fd 10 pd fill home end to lanpan setpc 9 yuanpan rt 45 pu fd 10 pd fill home end to lvpan setpc 10 yuanpan rt 135 pu fd 10 pd fill home end to huangpan setpc 14 yuanpan lt 135 pu fd 10 pd fill home end to pan hongpan huangpan lvpan lanpan setpc 0 yuanpan home end to fz make "b random 100 make "c 0 end to zhizhen if :b=0 then setw 3 fd 50 bk 50 stop make "c :c+10 setw 3 fd 50 bk 50 wait 10 clean pan