2005/C3/ゆすけ

庄という漢字のプログラムです。

define X 40

sub pen_sage()
{
     OnFwd(OUT_B);
     Wait(X); 
     Off(OUT_B);
}

sub pen_age()
{
     OnRev(OUT_B);    
     Wait(X);
     Off(OUT_B);
}
task main()
{
     pen_sage();
    
     OnFwd(OUT_A+OUT_C);
     Wait(50);
     Off(OUT_A+OUT_C);
    
     pen_age();    
    
     OnFwd(OUT_A);
     OnRev(OUT_C);
     Wait(78);
     Float(OUT_A+OUT_C); 
    
     OnFwd(OUT_A);
     OnFwd(OUT_C);
     Wait(125);
     Float(OUT_A+OUT_C);
    
     pen_sage();
    
     OnRev(OUT_A+OUT_C);
     Wait(250); 
     Float(OUT_A+OUT_C); 
        
    
     OnRev(OUT_C);
     OnFwd(OUT_A);
     Wait(78);
     Float(OUT_A+OUT_C);
    
     OnRev(OUT_A+OUT_C);
     Wait(125);
     Float(OUT_A+OUT_C);
    
     OnRev(OUT_A);
     OnFwd(OUT_C);
     Wait(25);
     Off(OUT_A+OUT_C);
     OnRev(OUT_A+OUT_C);
     Wait(125);
     Float(OUT_A+OUT_B+OUT_C);
    
     pen_age();
    
     OnFwd(OUT_A+OUT_C);           
     Wait(125);
     Float(OUT_A+OUT_B+OUT_C);
    
     OnFwd(OUT_C);
     OnRev(OUT_A);
     Wait();
     Float(OUT_A+OUT_C);
    
     OnFwd(OUT_A+OUT_C);
     Wait(185);
     Float(OUT_A+OUT_C);
    
     pen_sage();
    
     OnRev(OUT_A+OUT_C);
     Wait(125);
     Float(OUT_A+OUT_C);
    
     pen_age();
    
     OnFwd(OUT_A+OUT_C);
     Wait(62.5);
     Float(OUT_A+OUT_C);
    
     OnFwd(OUT_A);
     OnRev(OUT_C);
     Wait(78);
     Float(OUT_A+OUT_C);
    
     OnFwd(OUT_A+OUT_C);
     Wait(25);
     Float(OUT_A+OUT_C);
    
     pen_sage(); 
    
     OnRev(OUT_A+OUT_C);
     Wait(150);
     Float(OUT_A+OUT_C);
    
     pen_age();
    
    OnFwd(OUT_C);
    OnRev(OUT_A);
    Wait(78);
    Float(OUT_A+OUT_C);
    
    OnRev(OUT_A+OUT_C);
    Wait(75);
    Float(OUT_A+OUT_C);
    
    pen_sage();
    
    OnFwd(OUT_A+OUT_C);
    Wait(150);
    Float(OUT_A+OUT_C);

}

目次

全般

教材・資料

Debian関連

過去の授業

2003年度以前

最新の20件