pc logo画一个在地上滚动的六边形

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/18 20:37:41
pc logo画一个在地上滚动的六边形
xQJ@+NX4XmHE1 5KE PFH-ڟI_8f9g9sGzk lc\T# NB Ve:yfzX<,gܽCQqlѻeOخ]]=y(퀻^Ķ٪_~`VpϦGu/WEF0Êm}UyEWdPO3pY^RMɳm,C:d+k\G@N2"gA} ʋp284s];'l'nܑA! EL qHPj8 !D_R.bLRxw8! MLPp> Cx<{4ՉyI 2+sA

pc logo画一个在地上滚动的六边形
pc logo画一个在地上滚动的六边形

pc logo画一个在地上滚动的六边形
这个我好像做过,那是在比赛中,不过不太完善,而且答案也不太对
这个是五边形的,修改一下才行
TO X
ht
lt 90
repeat 5[fd 50 rt 360/5]
make "g 0
label "c
if :g=14 then make "g 0 setx (xcor+50) lt (5*14) clean go "c
wait 10
clean
rt 5
repeat 5[fd 50 rt 360/5]
make "g :g+1
go "c
END
可以吗?

TO LBX
REPEAT 6[FD 60 RT 60]
END
TO 滚动
LT 90 SETW 5 FD 1500 HOME
PU SETW 2 FD 6 LT 90
REPEAT 100[REPEAT 12[LBX PE WAIT 3 LBX RT 5 PD]PU LT 60 BK 60 PD]
END