2005/C3/課題２右 の履歴ソース(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 2005/C3/課題２右 へ行く。
  • 1 (2005-11-28 (月) 08:01:32)
  • 2 (2005-11-28 (月) 08:09:39)
  • 3 (2005-12-02 (金) 09:02:11)

[[2005/C3]]

task main()
{
     SetSensor(SENSOR_1,SENSOR_TOUCH);
     SetSensor(SENSOR_3,SENSOR_TOUCH);
      
     
     repeat(2)
    {  
     repeat(2)
     {
      OnFwd(OUT_A+OUT_C);
      until((SENSOR_1 == 1) && (SENSOR_3 == 1));
      Off(OUT_A+OUT_C);
     
      OnRev(OUT_A+OUT_C);
      Wait(90);
      Off(OUT_A+OUT_C);
     
      OnFwd(OUT_C);
      Wait(180);
      OnFwd(OUT_A);
      Wait(150); 
     }
     OnFwd(OUT_A+OUT_C);
     until((SENSOR_1 == 0) && (SENSOR_3 == 0));
     Off(OUT_A+OUT_C);
     
     OnFwd(OUT_A+OUT_C);
     Wait(30);
     
     OnFwd(OUT_A);
     OnRev(OUT_C);
     Wait(90);
     
     OnFwd(OUT_A+OUT_C);
     Wait(30);
      
     OnFwd(OUT_A);
     OnRev(OUT_C);
     Wait(90);
   }
     OnFwd(OUT_A+OUT_C);
     until((SENSOR_1 == 0) || (SENSOR_3 == 0));
     Off(OUT_A+OUT_C);
     
     OnFwd(OUT_A+OUT_C);
     Wait(30);
     
     OnFwd(OUT_A);
     OnRev(OUT_C);
     Wait(90);
     
     OnFwd(OUT_A+OUT_C);
     Wait(500);
     until((SENSOR_1 == 0) || (SENSOR_3 == 0));
     Off(OUT_A+OUT_C);
    
     OnFwd(OUT_A+OUT_C);
     Wait(30);
     
     OnFwd(OUT_A);
     OnRev(OUT_C);
     Wait(90);
     
     OnFwd(OUT_A+OUT_C);
     Wait(90);

     
}