*課題1右 改良前のプログラム [#he025827]

 作成日 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/課題1右 に戻る>2006a/C4/課題1右]]

トップ   編集 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS