2004/B1/21班練習問題/光を追いかけるロボット
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[2004/B1/21班練習問題]]
* 4. 光を追いかけるロボット(必須) [#lcfb8367]
まず最初に一回転してもっとも明るい方向(懐中電灯の方向)を探し、次に懐中電灯の光を追いかけて進むようなロボットを作成しなさい。
int lm;
int tm;
task main ()
{
SetSensor(SENSOR_1, SENSOR_LIGHT);
ClearTimer(0); //タイマーをリセット
OnFwd(OUT_A);OnRev(OUT_C);
lm=0; //光の強さ
if(SENCER_1 > lm)
{
lm=SENSOR(0);
tm=Timer(0);
} //光の最大値と、最大値を記録した時間を記録
if(Timer(0)=400)
{
Off(OUT_C+OUT_A);
ClearTimer(0);}
OnFwd(OUT_C);OnRev(OUT_A);
if(Timer(0)=400-tm){Off(OUT_C+OUT_A);} //逆回転し、先程の位置で停止
}
}
終了行:
[[2004/B1/21班練習問題]]
* 4. 光を追いかけるロボット(必須) [#lcfb8367]
まず最初に一回転してもっとも明るい方向(懐中電灯の方向)を探し、次に懐中電灯の光を追いかけて進むようなロボットを作成しなさい。
int lm;
int tm;
task main ()
{
SetSensor(SENSOR_1, SENSOR_LIGHT);
ClearTimer(0); //タイマーをリセット
OnFwd(OUT_A);OnRev(OUT_C);
lm=0; //光の強さ
if(SENCER_1 > lm)
{
lm=SENSOR(0);
tm=Timer(0);
} //光の最大値と、最大値を記録した時間を記録
if(Timer(0)=400)
{
Off(OUT_C+OUT_A);
ClearTimer(0);}
OnFwd(OUT_C);OnRev(OUT_A);
if(Timer(0)=400-tm){Off(OUT_C+OUT_A);} //逆回転し、先程の位置で停止
}
}
ページ名: