[[2005/B6]] [[課題4の光に向かい進むロボット(HAKASE)>2005/B6/課題4の光に向かい進むロボット]] {for文を使ったプログラム} task main() { SetSensor(SENSOR_2, SENSOR_LIGHT); int rightmax=0; int i=0,i_max=0,ot=0; for(i=0;i<=42;i++){ OnFwd(OUT_A);OnRev(OUT_C); Wait(10);Off(OUT_A+OUT_C); if(SENSOR_3>rightmax){ rightmax=SENSOR_3; i_max=i; }; }; Off(OUT_A+OUT_C); Wait(10); i=i_max*10-20; OnFwd(OUT_A);OnRev(OUT_C); Wait(i); ot=SENSOR_3*100; PlayTone(ot,500); OnFwd(OUT_A+OUT_C); Wait(100); Off(OUT_A+OUT_C); }