logo程序設(shè)計(jì)-資料下載頁(yè)
2024-10-24 17:32本頁(yè)面
【導(dǎo)讀】到現(xiàn)在為止，我們一直是只使用一只海龜作圖。Logo系統(tǒng)預(yù)定義了16只海龜，依次編號(hào)為0~15。直接聽(tīng)從指揮的海龜只是0號(hào)，我們把它稱為當(dāng)前活動(dòng)的海龜。指名執(zhí)行是通過(guò)ASK命令指使非活動(dòng)海龜執(zhí)行操作。以是一條命令，或一組命令，還可以調(diào)用其他過(guò)程。激活TELLALL代號(hào)1代號(hào)2激活這兩個(gè)代號(hào)之間所有的海龜。有自己的顏色、位置。例題5：測(cè)試激活的海龜。它不能改變海龜?shù)幕顒?dòng)屬性。例題6：海龜分別執(zhí)行畫(huà)圖。操作表達(dá)得更緊湊、簡(jiǎn)潔。使得我們編寫(xiě)Logo程序的思路更開(kāi)拓、方法更靈巧。
【正文】 O TTV DRAW HT TTV2 WAIT 100 TTV1 90 END TO TTV1 :N ASK 1 [ZUV :N] ASK 2 [ZSV :N] REPEAT 3000[ ] CLEAN TTV1 :N+1 END TO TTV2 ASK 1 [PU SETXY[150 0]PD SETPC 9 \ PXSBX 120 70 90] ASK 2 [PU SETXY[150 0]PD SETPC 12 \ ZSV 90] END 大齒輪帶動(dòng)若干個(gè)小齒輪同時(shí)轉(zhuǎn)動(dòng)（如圖 12所示）。 主過(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)車 ? 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