PROGRAM Demosound;
USES crt;
PROCEDURE CreatSound(h,t: WORD);
BEGIN
Sound(h); Delay(t); NoSound;
END;
PROCEDURE clockoc(h: WORD);
BEGIN
CreatSound(h, 20);
delay(50);
Creatsound(h,40);
END;
BEGIN
REPEAT
Clockoc(500);
delay(200);
UNTIL keypressed;
END.
Tiếng lộc cộc của vó ngựa phi.
Admin- Admin
- Tổng số bài gửi : 239
Join date : 19/05/2011
Age : 28
Đến từ : VietNam
|
|
|