logo程序設(shè)計-wenkub
2022-11-04 17:32:21 本頁面
【正文】 ZT2↙ 筆色為藍的 5號海龜定位 筆色為綠的 10號海龜定位 筆色為淺紫的 15號海龜定位 10 、 15 號海龜畫正方形 筆色為淺紅的 0號海龜畫正方形 二、激活海龜參與活動 一只或多只海龜一旦被激活，即為當(dāng)前活動的海龜。 查 詢 WHO 查詢正在活動的海龜?shù)拇?。（如圖 3所示） TO JHHG1 DRAW HT ASK 1[SETPC 2 PU SETX 50] ASK 3[SETPC 14 PU SETX 0] ASK 5[SETPC 12 PU SETX 50] TELL [1 3 5] PD (STAMPRECT 40 80 TRUE) END 圖 3？ JHHG1↙ 例題 4：激活執(zhí)行。 ⑶、 只有執(zhí)行激活海龜命令 TELL，才使一只或幾只海龜成為當(dāng)前活動的海龜。 ⑵ 、用 0~3號海龜組成四片風(fēng)車葉，使之轉(zhuǎn)動（如圖 52）。 畫出如圖 6所示的圖形。 TO NWJX :N DRAW HT TELLALL 1 :N EACH[PU SETX WHO*80300 PD WJX WHO*3+8] END TO WJX :L SETPC RANDOM 14 SETW 2 RT 18 REPEAT 5[FD :L RT 144 FD :L LT 72] END 圖 8：？ NWJX 5↙ 繞一圓圈外轉(zhuǎn)動（如圖 9所示）。 TO LHLHA DRAW HT ASK 1[SETPC 1] ASK 2[SETPC 12] ASK 3[SETPC 2] ASK 4[SETPC 14] TELLALL 1 4 EACH[PU SETXY SE 250 \ (150WHO*60) PD] LHAA 5 END TO LHAA :N IF XCOR250 MAKE N 5 IF XCOR250 MAKE N 5 PD (STAMPOVAL 15 15 TRUE) WAIT 20 CLEAN PU SETX XCOR+:N LT 90 LHAA :N END 當(dāng)執(zhí)行 LHLHA↙ 實現(xiàn)第 ⑴題的要求 ? LHLHA↙ TO LHB :R IF :R5 STOP PD (STAMPOVAL :R :R TRUE) WAIT 20 CLEAN LHB : END TO LHLHB DRAW HT ASK 1[SETPC 1] ASK 2[SETPC 12] ASK 3[SETPC 2] ASK 4[SETPC 14] TELLALL 1 4 EACH[PU SETXY SE 130 \ (180WHO*70) PD] LHA 5 5 END TO LHA :R :N IF :R30 LHB :R MAKE R 5 \ MAKE N 5 IF XCOR=130 MAKE N 5 PD (STAMPOVAL :R :R TRUE) WAIT 20
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1