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

一、畫圖形。（20分）圖一圖二1、（10分）寫出畫圖一的命令答案：repeat8[fd50rt360*3/8fd50It360*3/8-360/8]2、（10分）寫出畫圖二的命令答案：repeat8[repeat3[fd50rt120]rt360/8]考查知識：重復(fù)命令的掌握?？疾旒寄埽菏褂弥貜?fù)命令畫出重復(fù)的規(guī)則圖形。評分標(biāo)準(zhǔn)：沒有使用重復(fù)命令畫圖形的扣5分，只有使用難搞重復(fù)命令畫出全部圖形的才給10分。二、（15分）編寫一個帶三個變量的過程dbx:n:k:bc，使過程能畫出一個由n個邊長為bc的正k變形旋轉(zhuǎn)而成的圖形。例如，調(diào)用一下過程能畫出相對應(yīng)的圖形：Dbx6650Dbx5550Dbx10450答案：todbx:n:k:bcrepeat:n[repeat:k[fd:bcrt360/:k]rt360/:n]end考查知識：帶變量的過程的使用考察技能：能靈活運(yùn)用帶變量的過程畫出不同的圖形三、（15分）編寫一個計算一位小數(shù)加減乘除的人機(jī)交互過程main，當(dāng)過程運(yùn)行時，屏幕上會出現(xiàn)一道一位小數(shù)的計算題，在你輸入這道題的答案后，屏幕會提示你這道題目你是做對了還是做錯了。mam41.44-5.6的商是多少？?7.4你答對了！x8-8的積是多少？?64你答錯了！5x3.8的積是多少？?19你答對了！x2.6的積是多少？參考答案：TOJFMAKE"A（RANDOM100）*0.1MAKE"B（RANDOM100）*0.1（PR:A[+]:B[的和是多少?]）MAKE"CREADIF:C=:A+:BTHENPR[你答對了！]STOPPR[你答錯了！]STOPENDTOJIFMAKE"A(RANDOM100)*0.1MAKE"B(RANDOM100)*0.1IF:A<:BTHENMAKE"D:AMAKE"A:BMAKE"B:D(PR:A[-]:B[的差是多少?])MAKE"CREADIF:C=:A-:BTHENPR[你答對了！]STOPPR[你答錯了！]STOPENDTOCFMAKE"A(RANDOM100)*0.1MAKE"B(RANDOM100)*0.1(PR:A[X]:B[的積是多少?])MAKE"CREADIF:C=:A*:BTHENPR[你答對了！]STOPPR[你答錯了！]STOPENDTOCHFMAKE"A(RANDOM100)*0.1MAKE"B(RANDOM100)*0.1MAKE"C:A*:B(PR:C[：]:B[的商是多少?])MAKE"AREADIF:C=:A*:BTHENPR[你答對了！]STOPPR[你答錯了！]STOPENDTOMAINMAKE"KRANDOM4IF:K=1THENJFIF:K=2THENJIFIF:K=3THENCFIF:K=4THENCHFMAINEND考查知識：隨機(jī)數(shù)的靈活使用，尾遞歸的使用考察技能：能靈活運(yùn)用隨機(jī)數(shù)產(chǎn)生隨機(jī)小數(shù)，能進(jìn)行數(shù)理分析。評分標(biāo)準(zhǔn)：能做出加減乘除法各給3分，總過程給3分。四、(15分)編寫過程畫如下圖形：參考答案：totaijirepeat18[bk5It10]repeat36[fd10rt10]repeat18[fd10rt10]repeat18[fd5rt10]pubk20pdfillhomert90pufd5/0.174pdsetpc15(stampoval1010"true)pubk5*2/0.174pdsetpc0(stampoval1010"true)End考查知識：使用正36邊形畫圓弧考察技能：靈活使用圓的半徑X0.174=正36邊形的邊長。評分標(biāo)準(zhǔn)：畫出太極圖形給10分，把黑白兩個遠(yuǎn)點(diǎn)畫到相應(yīng)的位置給5分。五、(15分)編寫一個幸運(yùn)大轉(zhuǎn)盤的動畫，如下圖所示。轉(zhuǎn)盤旋轉(zhuǎn)一定的時間后指針會停下來。參考答案：toyuanpansetw1homestampoval100100fd100bk200fd100rt90fd100bk200homeendtohongpansetpc12yuanpanIt45pufd10pdfillhomeendtolanpansetpc9yuanpanrt45pufd10pdfillhomeendtolvpansetpc10yuanpanrt135pufd10pdfillhomeendtohuangpansetpc14yuanpanlt135pufd10pdfillhomeendtopanhongpanhuangpanlvpanlanpansetpc0yuanpanhomeendtofzmake"brandom100make"c0endtozhizhenif:b=0thensetw3fd50bk50stopmake"c:c+10setw3fd50bk50wait10clean