[[2005/C5/しょう]]
*四角を書くロボット [#ibaefd3e]
 int g;
 int b;
 int r;
 int l;

 
 sub go ()
 {
  OnFwd (OUT_A+OUT_C);
  Wait (g);
  Off (OUT_A+OUT_C);
 }

 
 sub back ()
 {
  OnRev (OUT_A+OUT_C);
  Wait (b);
  Off (OUT_A+OUT_C);
 }

 
 sub tr ()
 {
  OnFwd (OUT_A);
  OnRev (OUT_C);
  Wait (r);
  Off (OUT_A+OUT_C);
 }

 
 sub tl ()
 {
  OnFwd (OUT_C);
  OnRev (OUT_A);
  Wait (l);
  Off (OUT_A+OUT_C);
 }

 
 task main ()
 {
  repeat (4)
  {
   g=150;
   go ();
   r=135;
   tr ();
  }
 }

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