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:15 am
PROGRAM Ban_nay ;
USES Crt ;
VAR
Hight, Low : INTEGER ;
(* ---------------------------------------------------------- *)
PROCEDURE BoucingBall ( Hight, Low : INTEGER ) ;
VAR
Count : INTEGER ;
BEGIN
Count := 20 ;
WHILE Count > 1 DO
BEGIN
Sound ( Low - Count * 2 ) ;
Delay ( (Count * 500) DIV 20 ) ;
Nosound ;
Sound ( Hight ) ;
Delay ( (Count * 500) DIV 15 ) ;
Nosound ;
Delay ( 150 ) ;
Count := Count - 2 ;
END ;
END ;
(* ---------------------------------------------------------- *)
BEGIN
BoucingBall ( 350, 200 ) ;
END.