2004/A5/台から落ちないロボット の履歴ソース(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 2004/A5/台から落ちないロボット へ行く。
  • 1 (2004-12-24 (金) 07:25:18)

[[2004/A5/練習問題]]

プログラム

task main()
 {SetSensor(SENSOR_1, SENSOR_TOUCH);  //端子1をタッチセンサーとする
 while(true)
 {  
  OnFwd(OUT_A+OUT_C); //  前に進む 
  until (SENSOR_1 == 0);  // センサーが机と離れる(落ちそうになる)
  OnRev(OUT_A+OUT_C);  Wait(200);  //落ちないようにその場で回転する
  OnFwd(OUT_A); Wait(100);  // 右回りで進む  そして10秒待つ
  OnFwd(OUT_C);  //左回りで進む
  }
  }