[[2005/B4/すなお]] *三角形を描くプログラミング [#x464cd0a] *三角形を書くプログラミング [#x464cd0a] sub go_straight() task main() { OnFwd(OUT_A+OUT_C); Wait(300); Off(OUT_C+OUT_A); } sub turn_right() { Off(OUT_C); OnRev(OUT_A); Wait(200); } task main() { go_straight(); turn_right(); go_straight(); turn_right(); go_straight(); } OnFwd(OUT_A+OUT_C); Wait(300); Off(OUT_C); OnRev(OUT_A); Wait(200); OnFwd(OUT_A+OUT_C); Wait(300); Off(OUT_A+OUT_C); }