Admin- Admin
- Tổng số bài gửi : 239
Join date : 19/05/2011
Age : 28
Đến từ : VietNam
Admin Sat May 28, 2011 9:17 am
Program Bao_dong ;
Uses Crt ;
(* ----------------------------------------------------------- *)
Procedure RedAlert ( Hight, Low : Integer ) ;
Var
Ch :Char ;
Begin
Clrscr ;
Write(' An phim bât ki de cham dut bao dong ! ') ;
Repeat
Sound ( Hight ) ;
Delay ( 400 ) ;
Sound ( Low ) ;
Delay ( 400 ) ;
Until KeyPressed ;
Ch := Readkey ;
Nosound ;
End ;
(* ----------------------------------------------------------- *)
BEGIN
RedAlert ( 359, 200 ) ;
END.