2006a/C3/課題１左/プログラム(修正中)

2006a/C3/課題１左

#define MOVE_TIME 20         //ペンを上げ下げする時間
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(150);         　//一画目縦線
    pen_up();             
   go_rev(80);
   turn_left(30);　　　　 //方向転換
   go_fwd(65);
   pen_down();
    go_rev(20);　　　 　　 //一画目はね
    pen_up();
   go_rev(170);
   turn_left(30);         //方向転換
   go_fwd(90);
   pen_down();
    go_fwd(40); 　　　　 　//二画目横線　
    pen_up();　　　　　　　
   go_rev(85);
   turn_left(45);         //方向転換
   go_fwd(67);
   pen_down();
    go_rev(70);　　　　　　//二画目斜線
    pen_up();                       
   turn_right(35);　　　　//方向転換
   go_fwd(75); 
   turn_left(10);　　　　　
   go_fwd(20);   
   pen_down();
    go_rev(40);　　　　　　//三画目
    pen_up();　　　　
   go_rev(105);
   turn_right(45);　　　　//方向転換
   go_fwd(70);
   pen_down();
    go_fwd(75);　　　　　　//四画目
    pen_up();  
}

目次

全般

教材・資料

Debian関連

過去の授業

2003年度以前

最新の20件