2006a/C3/課題1左/プログラム(完成版)
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[2006a/C3/課題1左]]
sub pen_up() //ペンを上げる
{
OnFwd(OUT_B);
Wait(15);
Off(OUT_B);
}
sub pen_down() //ペンを下げる
{
OnRev(OUT_B);
Wait(20);
Off(OUT_B);
}
void go_fwd(int t) //t秒間前に進む
{
OnFwd(OUT_A+OUT_C);Wait(t);
Off(OUT_A+OUT_C);
}
void go_rev(int t) //t秒間後進する
{
OnRev(OUT_A+OUT_C);Wait(t);
Off(OUT_A+OUT_C);
}
void turn_left(int t) //左に曲がる
{
OnFwd(OUT_C);Wait(t);
OnRev(OUT_A);Wait(t);
Off(OUT_A+OUT_C);
}
task main()
{
pen_down();
go_fwd(130); //一画目縦線
pen_up();
go_rev(87);
turn_left(30); //方向転換
go_fwd(70);
pen_down();
go_rev(20); //一画目はね
pen_up();
go_rev(170);
turn_left(35); //方向転換
go_fwd(90);
pen_down();
go_fwd(35); //二画目横線
pen_up();
go_rev(90);
turn_left(45); //方向転換
go_fwd(67);
pen_down();
go_rev(60); //二画目斜線
pen_up();
go_rev(10);
turn_right(35); //方向転換
go_fwd(75);
turn_left(10);
go_fwd(35);
pen_down();
go_rev(40); //三画目
pen_up();
go_rev(94);
turn_right(50); //方向転換
go_fwd(65);
pen_down();
go_fwd(75); //四画目
pen_up();
}
終了行:
[[2006a/C3/課題1左]]
sub pen_up() //ペンを上げる
{
OnFwd(OUT_B);
Wait(15);
Off(OUT_B);
}
sub pen_down() //ペンを下げる
{
OnRev(OUT_B);
Wait(20);
Off(OUT_B);
}
void go_fwd(int t) //t秒間前に進む
{
OnFwd(OUT_A+OUT_C);Wait(t);
Off(OUT_A+OUT_C);
}
void go_rev(int t) //t秒間後進する
{
OnRev(OUT_A+OUT_C);Wait(t);
Off(OUT_A+OUT_C);
}
void turn_left(int t) //左に曲がる
{
OnFwd(OUT_C);Wait(t);
OnRev(OUT_A);Wait(t);
Off(OUT_A+OUT_C);
}
task main()
{
pen_down();
go_fwd(130); //一画目縦線
pen_up();
go_rev(87);
turn_left(30); //方向転換
go_fwd(70);
pen_down();
go_rev(20); //一画目はね
pen_up();
go_rev(170);
turn_left(35); //方向転換
go_fwd(90);
pen_down();
go_fwd(35); //二画目横線
pen_up();
go_rev(90);
turn_left(45); //方向転換
go_fwd(67);
pen_down();
go_rev(60); //二画目斜線
pen_up();
go_rev(10);
turn_right(35); //方向転換
go_fwd(75);
turn_left(10);
go_fwd(35);
pen_down();
go_rev(40); //三画目
pen_up();
go_rev(94);
turn_right(50); //方向転換
go_fwd(65);
pen_down();
go_fwd(75); //四画目
pen_up();
}
ページ名: