2005/A1 漢字で左を書く 11月7日 by コンパス

プログラム

task main()
{ 
OnFwd(OUT_A+OUT_C); 
Wait(100);
Off(OUT_A+OUT_C);

OnFwd(OUT_B);
Wait(20);
Off(OUT_B);

OnFwd(OUT_A);
OnRev(OUT_C);
Wait(180);
Off(OUT_A+OUT_C);

OnFwd(OUT_A+OUT_C);
Wait(65);
Off(OUT_A+OUT_C);

OnRev(OUT_A);
OnFwd(OUT_C);
Wait(100);
Off(OUT_A+OUT_C);
OnRev(OUT_B);
Wait(20);
Off(OUT_B);
repeat(100){
OnFwd(OUT_A);
Wait(2);
Off(OUT_A);
OnFwd(OUT_C);
Wait(1);
Off(OUT_C);
}

OnFwd(OUT_B);
Wait(20);
Off(OUT_B);
OnRev(OUT_C);
OnFwd(OUT_A);
Wait(85);
Off(OUT_A+OUT_C);

OnFwd(OUT_A+OUT_C);
Wait(54);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(105);
Off(OUT_A+OUT_C);
OnFwd(OUT_A+OUT_C);
Wait(59);
Off(OUT_A+OUT_C);
OnRev(OUT_B);
Wait(20);
Off(OUT_B);
OnFwd(OUT_A+OUT_C);
Wait(50);
Off(OUT_A+OUT_C);
OnFwd(OUT_B);
Wait(20);
Off(OUT_B);

OnRev(OUT_A+OUT_C);
Wait(25);
Off(OUT_A+OUT_C);

OnRev(OUT_C);
OnFwd(OUT_A);
Wait(72);
Off(OUT_A+OUT_C);

OnRev(OUT_B);
Wait(20);
Off(OUT_B);
OnFwd(OUT_A+OUT_C);
Wait(38);
Off(OUT_A+OUT_C);
OnFwd(OUT_B);
Wait(20);
Off(OUT_B);
OnFwd(OUT_C);
OnRev(OUT_A);
Wait(70);
Off(OUT_A+OUT_C);
OnRev(OUT_A+OUT_C);
Wait(40);
Off(OUT_A+OUT_C);

OnRev(OUT_B);
Wait(20);
Off(OUT_B);
OnFwd(OUT_A+OUT_C);
Wait(80);
Off(OUT_A+OUT_C);
}

感想

走らせる場所により摩擦が違ったり、紙に引っかかってしまい苦労しました

  • 一つの動作に説明(ペンを置く、一画目、ペンを上げる、等)説明をつけて下さると見やすくなると思います。他の班のプログラムをみるといいかも... -- ゆん(TA)? 2005-11-11 (金) 15:58:02


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-11-18 (金) 17:22:30