2005/C5/しょう

四角を書くロボット

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
Last-modified: 2005-11-16 (水) 12:56:19