2004/C5/45班/練習問題/ハウル の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• 2004/C5/45班/練習問題/ハウル へ行く。
• 2004/C5/45班/練習問題/ハウル の差分を削除

[[2004/C5/練習問題]]

[[2004/C5/練習問題]]
 #define mi  330
 #define ra  440
 #define si  494
 #define Do  523
 #define DO  554
 #define Re  587
 #define RE  622
 #define Mi  659
 #define Fa  698
 #define FA  740
 #define Sol 784
 #define Ra  880
 #define Si  988
 
 #define X1  20
 #define x1  25
 #define X2  40
 #define x2  50
 #define X3  80
 #define x3  100
 #define X4  160
 #define x4  200
 
 task play_music()
 {
    while (true)
    {
        PlayTone(mi,X2); Wait(x2);  
        PlayTone(ra,X2); Wait(x2);
        PlayTone(Do,X2); Wait(x2);
        PlayTone(Mi,X3); Wait(x3);
        PlayTone(Mi,X2); Wait(x2);
        PlayTone(Re,X2); Wait(x2);
 PlayTone(Do,X2); Wait(x2);
 PlayTone(si,X2); Wait(x2);
 PlayTone(Do,X4); Wait(x4);
 PlayTone(ra,X2); Wait(x2);
 PlayTone(Do,X2); Wait(x2);
 PlayTone(Mi,X2); Wait(x2);
 PlayTone(Ra,X3); Wait(x3);
 PlayTone(Ra,X2); Wait(x2);
 PlayTone(Ra,X2); Wait(x2);
 PlayTone(Sol,X2); Wait(x2);
 PlayTone(Fa,X2); Wait(x2);
 PlayTone(Sol,X4); Wait(x4);
 PlayTone(Do,X2); Wait(x2);
 PlayTone(Mi,X2); Wait(x2);
 PlayTone(Sol,X2); Wait(x2);
 PlayTone(Si,X3); Wait(x3);
 PlayTone(Ra,X2); Wait(x2);
 PlayTone(Sol,X2); Wait(x2);
 PlayTone(FA,X2); Wait(x2);
 PlayTone(Sol,X2); Wait(x2);
 PlayTone(Ra,X3); Wait(x3);
 PlayTone(Sol,X2); Wait(x2);
 PlayTone(FA,X3); Wait(x3);
 PlayTone(Mi,X2); Wait(x2);
 PlayTone(Re,X2); Wait(x2);
 PlayTone(Do,X2); Wait(x2);
 PlayTone(Re,X2); Wait(x2);
 PlayTone(Mi,X2); Wait(x2);
 PlayTone(Re,X2); Wait(x2);
 PlayTone(ra,X2); Wait(x2);
 PlayTone(si,X4); Wait(x4);
 
        PlayTone(mi,X2); Wait(x2);  
        PlayTone(ra,X2); Wait(x2);
        PlayTone(Do,X2); Wait(x2);
        PlayTone(Mi,X3); Wait(x3);
        PlayTone(Mi,X2); Wait(x2);
        PlayTone(Re,X2); Wait(x2);
 PlayTone(Do,X2); Wait(x2);
 PlayTone(si,X2); Wait(x2);
 PlayTone(Do,X4); Wait(x4);
 PlayTone(ra,X2); Wait(x2);
 PlayTone(Do,X2); Wait(x2);
 PlayTone(Mi,X2); Wait(x2);
 PlayTone(Ra,X3); Wait(x3);
 PlayTone(Ra,X2); Wait(x2);
 PlayTone(Ra,X2); Wait(x2);
 PlayTone(Si,X2); Wait(x2);
 PlayTone(Sol,X1); Wait(x1);
 PlayTone(Fa,X1); Wait(x1);
 PlayTone(Sol,X4); Wait(x4);
 PlayTone(Do,X2); Wait(x2);
 PlayTone(Mi,X2); Wait(x2);
 PlayTone(Sol,X2); Wait(x2);
 PlayTone(Si,X3); Wait(x3);
 PlayTone(Ra,X2); Wait(x2);
 Wait(45);
 PlayTone(Sol,X1); Wait(x1);
 PlayTone(FA,X1); Wait(x1);
 PlayTone(Fa,X1); Wait(x1);
 PlayTone(FA,X1); Wait(x1); 
 PlayTone(Ra,X3); Wait(x3);
 PlayTone(Sol,X2); Wait(x2);
 Wait(45);
 PlayTone(FA,X1); Wait(x1);
 PlayTone(Mi,X1); Wait(x1);
 PlayTone(RE,X1); Wait(x1);
 PlayTone(Mi,X1); Wait(x1);
 PlayTone(Mi,X3); Wait(x3);
 PlayTone(Re,X1); Wait(x1);
 PlayTone(Do,X1); Wait(x1);
 PlayTone(si,X2); Wait(x2);
 Wait(22);
 PlayTone(DO,X1); Wait(x1);
 PlayTone(RE,X2); Wait(x2);
 PlayTone(Mi,X4); Wait(x4);
    }
 }      
 task main()
 {start play_music ;  
 }