Salut

J'ai écrit ce pgm en tp7 (exemple de cyberzoide) mais ça ne fonctionne pas.
Si vous pouviez m'indiquer où est le problème :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Program exemple11 ;
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.
Merci d'avance!