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:16 am
Program Bo_bom ;
Uses Crt ;
Var
Hight, Low, Altitude : Integer ;
(* ------------------------------------------------------------ *)
Procedure BombsAway ( Hight, Low, Altitude : Integer ) ;
Var
Count : Integer ;
Begin
Count := Low ;
While Count <= Hight Do
Begin
Sound ( Count ) ;
Delay ( (Altitude Div Count) * 75 ) ;
Count := Count + 10 ;
End ;
For Count := 1 To 3 Do
Begin
Nosound ;
Sound ( 40 ) ;
Delay ( 500 ) ;
Nosound ;
Delay ( 100 ) ;
End ;
Sound ( 40 ) ;
Delay ( 3000 ) ;
Nosound ;
End ;
(* ------------------------------------------------------------ *)
BEGIN
BombsAway ( 1200, 200, 500 ) ;
END.