- 追加された行はこの色です。
- 削除された行はこの色です。
*課題1右 改良前のプログラム [#he025827]
作成日 2005/05/18
作成者 原 辰徳
==============================
#define PENTIME 15
sub penup() //ペンを上げる
{
OnFwd(OUT_B);
Wait(PENTIME);
Off(OUT_B);
Wait(50);
}
sub pendn() //ペンを下げる
{
OnRev(OUT_B);
Wait(PENTIME);
Off(OUT_B);
Wait(50);
}
void gofwd(int fwdtime) //前に移動
{
OnFwd(OUT_A+OUT_C);
Wait(fwdtime);
Off(OUT_A+OUT_C);
Wait(50);
}
void gorev(int revtime) //後ろに移動
{
OnRev(OUT_A+OUT_C);
Wait(revtime);
Off(OUT_A+OUT_C);
Wait(50);
}
void turnl(int turnltime) //左に曲がる
{
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(turnltime);
Off(OUT_A+OUT_C);
Wait(50);
}
void turnr(int turnrtime) //右に曲がる
{
OnFwd(OUT_C);
OnRev(OUT_A);
Wait(turnrtime);
Off(OUT_A+OUT_C);
Wait(50);
}
task main()
{
Wait(100); //すぐに動き出さないように待機
pendn(); //1画目を書く
gofwd(100);
penup(); //2画目を書く位置まで移動
gorev(9);
turnr(92);
gorev(81);
pendn(); //2画目を書く
gofwd(150);
penup(); //3画目を書く位置まで移動
gorev(68);
turnr(43);
gorev(41);
pendn(); //3画目を書く
gofwd(100);
penup(); //4画目を書く位置まで移動
gorev(59);
turnl(86);
gorev(41);
pendn(); //4画目を書く
gofwd(100);
penup();
}
[[2006a/C4/課題1右 に戻る>2006a/C4/課題1右]]