logo程序設(shè)計(jì)(參考版)
2024-10-28 17:32本頁(yè)面
【正文】 A B TO 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所示）。 A TO VF DRAW HT SETPC 9 PXSBX 120 70 90 WAIT 30 ZU 90 END TO PXSBX :B1 :B2 :J REPEAT 2[FD :B1 RT :J FD :B2 \ RT 180:J] END TO ZU :N MAKE N :N+1 PXSBX 120 70 :N WAIT 1 CLEAN ZU :N+1 END 圖 112 ? VS↙ B ⑵ 、使三角形繞中心點(diǎn) B旋轉(zhuǎn)（如圖 112）。 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↙ 實(shí)現(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 CLEAN PU SETX XCOR+:N LHA :R+ :N END 當(dāng)執(zhí)行 LHLHB↙ 實(shí)現(xiàn)第 ⑵題的要求 跑動(dòng) ? LHLH
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1