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

1、一、畫圖形。（20 分）圖一1、（10 分）寫出畫圖一的命令圖二答案： repeat 8fd 50 rt 360*3/8 fd 50 lt 360*3/8-360/8 2、（10 分）寫出畫圖二的命令答案： repeat 8repeat 3fd 50 rt 120rt 360/8考查知識(shí)：重復(fù)命令的掌握?？疾旒寄埽菏褂弥貜?fù)命令畫出重復(fù)的規(guī)則圖形。評(píng)分標(biāo)準(zhǔn)：沒有使用重復(fù)命令畫圖形的扣5 分，只有使用難搞重復(fù)命令畫出全部圖形的才給10 分。二、（ 15 分）編寫一個(gè)帶三個(gè)變量的過程dbx :n :k :bc，使過程能畫出一個(gè)由n 個(gè)邊長為 bc 的正 k 變形旋轉(zhuǎn)而成的圖形。例如，調(diào)用一下過程能畫

2、出相對(duì)應(yīng)的圖形：Dbx 6 6 50Dbx 5 5 50Dbx 10 4 50答案：to dbx :n :k :bcrepeat :nrepeat :kfd :bc rt 360/:krt 360/:nend考查知識(shí)：帶變量的過程的使用考察技能：能靈活運(yùn)用帶變量的過程畫出不同的圖形三、（ 15 分）編寫一個(gè)計(jì)算一位小數(shù)加減乘除的人機(jī)交互過程 main，當(dāng)過程運(yùn)行時(shí)，屏幕上會(huì)出現(xiàn)一道一位小數(shù)的計(jì)算題，在你輸入這道題的答案后，屏幕會(huì)提示你這道題目你是做對(duì)了還是做錯(cuò)了。參考答案：TO JFMAKE "A (RANDOM 100) *MAKE "B (RANDOM 100) *(P

3、R :A + :B 的和是多少 )MAKE "C READIF :C = :A + :B THEN PR你答對(duì)了！ STOPPR 你答錯(cuò)了！ STOPENDTO JIFMAKE "A (RANDOM 100) *MAKE "B (RANDOM 100) *IF :A < :B THEN MAKE "D :A MAKE "A :B MAKE "B :D(PR :A - :B 的差是多少 )MAKE "C READIF :C = :A - :B THEN PR你答對(duì)了！ STOPPR 你答錯(cuò)了！ STOPENDTO CFM

4、AKE "A (RANDOM 100) *MAKE "B (RANDOM 100) *(PR :A × :B 的積是多少 )MAKE "C READIF :C = :A * :B THEN PR你答對(duì)了！ STOPPR 你答錯(cuò)了！ STOPENDTO CHFMAKE "A (RANDOM 100) *MAKE "B (RANDOM 100) *MAKE "C :A * :B(PR :C ÷ :B 的商是多少 )MAKE "A READIF :C = :A * :B THEN PR你答對(duì)了！ STOPPR

5、你答錯(cuò)了！ STOPENDTO MAINMAKE "K RANDOM 4IF :K = 1 THEN JFIF :K = 2 THEN JIFIF :K = 3 THEN CFIF :K = 4 THEN CHFMAINEND考查知識(shí)：隨機(jī)數(shù)的靈活使用，尾遞歸的使用考察技能：能靈活運(yùn)用隨機(jī)數(shù)產(chǎn)生隨機(jī)小數(shù)，能進(jìn)行數(shù)理分析。評(píng)分標(biāo)準(zhǔn)：能做出加減乘除法各給 3 分，總過程給 3 分。四、（15 分）編寫過程畫如下圖形：參考答案：to taijirepeat 18bk 5 lt 10repeat 36fd 10 rt 10repeat 18fd 10 rt 10repeat 18fd 5 r

6、t 10pu bk 20 pd fillhomert 90pu fd 5/ pdsetpc 15(stampoval 10 10 "true)pu bk 5*2/ pdsetpc 0(stampoval 10 10 "true)End考查知識(shí)：使用正36 邊形畫圓弧考察技能：靈活使用圓的半徑×=正 36 邊形的邊長。評(píng)分標(biāo)準(zhǔn)：畫出太極圖形給10 分，把黑白兩個(gè)遠(yuǎn)點(diǎn)畫到相應(yīng)的位置給5 分。五、（15 分）編寫一個(gè)幸運(yùn)大轉(zhuǎn)盤的動(dòng)畫，如下圖所示。轉(zhuǎn)盤旋轉(zhuǎn)一定的時(shí)間后指針會(huì)停下來。參考答案：to yuanpansetw 1homestampoval 100 100fd 1

7、00 bk 200fd 100 rt 90 fd 100 bk 200homeendto hongpansetpc 12yuanpanlt 45pu fd 10 pd fillhomeendto lanpansetpc 9yuanpanrt 45pu fd 10 pd fillhomeendto lvpansetpc 10yuanpanrt 135pu fd 10 pd fillhomeendto huangpansetpc 14yuanpanlt 135pu fd 10 pd fillhomeendto panhongpanhuangpanlvpanlanpansetpc 0yuanpanhomeendto fzmake "b random 100make "c 0endto zhizhenif :b=0 then setw 3 fd 50 bk 50 stopmake "c :c+10setw 3 fd 50 bk 50 wait 10cle