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

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