1. Sound ... Delay ... Nosound
Pour faire du son, il faut indiquer la fréquence (f) en Hz et le délay (t) en ms.
Syntaxe :
Sound ( f ) ;
Delay ( t ) ;
Nosound ;
Program
;
Uses crt ;
Var i, f : integer ;
BEGIN
For i := 1 to 20 do
Begin
For f := 500 to 1000 do sound ( f ) ;
Delay (10) ;
End ;
Nosound ;
END.
La fonction Chr permet d'obtenir le caractère de la table ASCII correspondant au numéro. Il se trouve
que les 31 premiers caractères correspondent à des fonctions : beep, delete, insert, return, esc... Le caractère 7
correspond au beep.
Syntaxes :
Write ( chr ( 7 ) ) ;
Write ( # 7 ) ;