*課題1右 改良前のプログラム [#he025827] 作成日 2005/05/18 作成者 原 辰徳 作成者 Nori ============================== #define PENTIME 15 sub penup() //ペンを上げる { OnFwd(OUT_B); Wait(PENTIME); Off(OUT_B); Wait(50); } sub pendn() //ペンを下げる { OnRev(OUT_B); Wait(PENTIME); Off(OUT_B); Wait(50); } void gofwd(int fwdtime) //前に移動 { OnFwd(OUT_A+OUT_C); Wait(fwdtime); Off(OUT_A+OUT_C); Wait(50); } void gorev(int revtime) //後ろに移動 { OnRev(OUT_A+OUT_C); Wait(revtime); Off(OUT_A+OUT_C); Wait(50); } void turnl(int turnltime) //左に曲がる { OnFwd(OUT_A); OnRev(OUT_C); Wait(turnltime); Off(OUT_A+OUT_C); Wait(50); } void turnr(int turnrtime) //右に曲がる { OnFwd(OUT_C); OnRev(OUT_A); Wait(turnrtime); Off(OUT_A+OUT_C); Wait(50); } task main() { Wait(100); //すぐに動き出さないように待機 pendn(); //1画目を書く gofwd(100); penup(); //2画目を書く位置まで移動 gorev(9); turnr(92); gorev(81); pendn(); //2画目を書く gofwd(150); penup(); //3画目を書く位置まで移動 gorev(68); turnr(43); gorev(41); pendn(); //3画目を書く gofwd(100); penup(); //4画目を書く位置まで移動 gorev(59); turnl(86); gorev(41); pendn(); //4画目を書く gofwd(100); penup(); } [[2006a/C4/課題1右 に戻る>2006a/C4/課題1右]]