*「井」を書くプログラム [#bf7021a8]
 #define MOVE1 50
 #define MOVE2 400
 #define MOVE3 400
 task main()
 {OnRev(OUT_A+OUT_C); 
 Wait(MOVE3); 
 Off(OUT_A+OUT_C); //一画目
 
 OnRev(OUT_B);
 Wait(MOVE1);
 Off(OUT_B); //ペンをあげる
 
 OnFwd(OUT_A);OnRev(OUT_C);
 Wait(MOVE2);
 Off(OUT_A+OUT_C);
 OnFwd(OUT_A+OUT_C);
 Wait(100);
 Off(OUT_A+OUT_C);
 OnFwd(OUT_C);OnRev(OUT_A);
 Wait(MOVE2);
 Off(OUT_A+OUT_C);
 OnFwd(OUT_A+OUT_C);
 Wait(MOVE3);
 Off(OUT_A+OUT_C); //二画目へ移動
 
 OnFwd(OUT_B);
 Wait(MOVE1);
 Off(OUT_B); //ペンを下げる
 
 OnRev(OUT_A+OUT_C);
 Wait(MOVE3);
 Off(OUT_A+OUT_C); //二画目
 
 OnRev(OUT_B);
 Wait(MOVE1);
 Off(OUT_B); //ペンをあげる
 
 OnFwd(OUT_C);OnRev(OUT_A);
 Wait(MOVE2);
 Off(OUT_A+OUT_C);
 OnFwd(OUT_A+OUT_C);
 Wait(200);
 Off(OUT_A+OUT_C);
 OnFwd(OUT_A);OnRev(OUT_C);
 Wait(MOVE2);
 Off(OUT_A+OUT_C);
 OnFwd(OUT_A+OUT_C);
 Wait(650);
 Off(OUT_A+OUT_C);
 OnFwd(OUT_C);OnRev(OUT_A);
 Wait(MOVE2);
 0ff(OUT_A+OUT_C); //三画目へ移動
 
 OnFwd(OUT_B);
 Wait(MOVE1);
 Off(OUT_B); //ペンを下げる
 
 OnRev(OUT_A+OUT_C);
 Wait(600);
 Off(OUT_A+OUT_C); //三画目
 
 OnRev(OUT_B);
 Wait(MOVE1);
 Off(OUT_B); //ペンをあげる
 
 OnFwd(OUT_C);OnRev(OUT_A);
 Wait(MOVE2);
 Off(OUT_A+OUT_C);
 OnFwd(OUT_A+OUT_C);
 Wait(100);
 Off(OUT_A+OUT_C);
 OnFwd(OUT_A);OnRev(OUT_C);
 Wait(MOVE2);
 Off(OUT_A+OUT_C);
 OnFwd(OUT_A+OUT_C);
 Wait(600);
 Off(OUT_A+OUT_C); //四画目へ移動
 
 OnFwd(OUT_B);
 Wait(MOVE1);
 Off(OUT_B); //ペンを下げる
 
 OnRev(OUT_A+OUT_C);
 Wait(600);
 Off(OUT_A+OUT_C); //四画目
 
 OnRev(OUT_B);
 Wait(MOVE1);
 Off(OUT_B);} //ペンをあげて終わり

[[課題1左に戻る>2006b/A3/課題1左]]


トップ   編集 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS