logo程序設(shè)計(jì)-預(yù)覽頁(yè)
【正文】 RYV2 :N END TO RYV DRAW HT SETW 2 SETPC 2 STAMPOVAL 50 50 SETPC 12 STAMPOVAL 47 47 SETPC 2 STAMPOVAL 44 44 RYV1 END TO RYV1 TELLALL 6 14 EACH [RT WHO*(360/9) SETPC 1*WHO] RYV2 8 END 圖 9：？ RYV↙ 用多龜操作分別實(shí)現(xiàn)下面各題的要求，請(qǐng)?jiān)O(shè)計(jì)程序 。 ⑴ 、使長(zhǎng)方形繞中心點(diǎn) A旋轉(zhuǎn)（如圖 111）。 主過(guò)程 : TO DXLPA :N MAKE M 0:N ASK 0[SETPC 2 DLP :N] XLP4 :M REPEAT 30000[ ] CLEAN DXLPA :N+10 END 執(zhí)行過(guò)程 : TO DXLP DRAW HT DXLPA 0 END 圖 12 ? DXLP↙ 空心橢圓 : TO KXTY :X :Y STAMPOVAL :X :Y END 大齒輪過(guò)程 : TO DLP :N SETW 2 KXTY 60 60 SETW 1 KXTY 50 50 REPEAT 6[FD 48 BK 48 RT 360/6] REPEAT 12[PU FD 57 PD SXTY 4 4 PU BK 57 RT 360/12 PD] SETH :N END 小齒輪過(guò)程 : TO XLP :N SETW 2 KXTY 30 30 SETW 1 KXTY 25 25 REPEAT 6[FD 24 BK 24 RT 360/6] REPEAT 12[PU FD 27 PD SXTY 3 3 \ PU BK 27 RT 360/12] SETH :N END 四個(gè)小齒輪過(guò)程 : TO XLP4 :N ASK 1[PU SETXY[90 0]PD] ASK 2[PU SETXY[0 90]PD] ASK 3[PU SETXY[90 0]PD] ASK 4[PU SETXY[0 90]PD] TELLALL 1 4 SETPC 12 XLP :N END 圖 121 ? DLP 0↙ 圖 122 ? XLP 0↙ 圖 123 ? XLP4 0↙ 想一想，做一做 (要求用多龜作圖 ) 由四片直角梯形組成的旋轉(zhuǎn)風(fēng)車(chē) ? VJFC↙ 彩色圓圈圈 ? BFY↙ 動(dòng)態(tài)光芒四射 ? XXUS↙ 雪花圖案 ? DGHH↙ 扇子展示圖 (顏色隨機(jī) ) ? SHAZI 5↙ 閃閃紅星 ? UJWX↙ 藍(lán)紅海龜在 800步的跑道上賽跑 ? LVGP↙ N只龜畫(huà)方陣圓 ? GHLQ 1↙ ? GHLQ 3↙ ? GHLQ 7↙ 5組 5朵梅花組成的圖形 ? MEIHUA↙
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1