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:12 am
PROGRAM Bip ;
USES Crt ;
VAR
MyNum : INTEGER ;
(* ----------------------------------------------------- *)
PROCEDURE Beep ;
BEGIN
Sound ( 150 ) ;
Delay ( 400 ) ;
Nosound ;
END ;
(* ----------------------------------------------------- *)
BEGIN
Clrscr ;
Write (' Cho mot so tu 1 den 5 : ') ;
Readln ( MyNum ) ;
IF ( MyNum < 1 ) OR ( MyNum > 5 ) THEN
BEGIN
Beep ;
Write (' Ban vao sai roi ! ') ;
END
ELSE Write (' So lieu duoc chap nhan ! ') ;
Readln ;
END.