log程序設(shè)計(jì)方案競賽題及答案

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考查知識：重復(fù)命令的掌握。考察技能：使用重復(fù)命令畫出重復(fù)的規(guī)則圖形。評分標(biāo)準(zhǔn)：沒有使用重復(fù)命令畫圖形的扣5分，只有使用難搞重復(fù)命令畫出全部圖形的才給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考查知識：帶變量的過程的使用考察技能：能靈活運(yùn)用帶變量的過程畫出不同的圖形main，當(dāng)過程運(yùn)行時，屏幕上會出現(xiàn)一道三、（15分）編寫一個計(jì)算一位小數(shù)加減乘除的人機(jī)交互過程 一位小數(shù)的計(jì)算題，在你輸入這道題的答案后，屏幕會提示你這道題目你是做對了還是做錯了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考查知識：隨機(jī)數(shù)的靈活使用，尾遞歸的使用 考察技能：能靈活運(yùn)用隨機(jī)數(shù)產(chǎn)生隨機(jī)小數(shù)，能進(jìn)行數(shù)理分析 評分標(biāo)準(zhǔn)：能做出加減乘除法各給 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邊形的邊長。評分標(biāo)準(zhǔn)：畫出太極圖形給10分，把黑白兩個遠(yuǎn)點(diǎn)畫到相應(yīng)的位置給5分五、（15分）編寫一個幸運(yùn)大轉(zhuǎn)盤的動畫，如下圖所示。轉(zhuǎn)盤旋轉(zhuǎn)一定的時

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