課題1右 改良前のプログラム†

作成日 2005/05/18
作成者 Nori
==============================

#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/課題１右 に戻る

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-05-24 (水) 01:32:19