11/07/14 14:39
Salve volevo sapere come emettere un suono ad una certa frequenza in Pascal. So che esiste la procedura sound() nella crt, ma l'ho provata ed emette un suono sempre alla stessa frequenza. Il codice è:
Se compilo il codice, che non mi sembra contenga errori, produce sempre lo stesso suono, anche se la frequenza cambia. Come mai?
Grazie in anticipo.
program ProvaSuono; uses crt; var frequenza; begin frequenza := 440; write('Suono a 440 Hz (La)'); readkey; sound(frequenza); delay(1000); nosound; readkey; frequenza := 446; write('Suono a 446 Hz (La#/Si b)'); readkey; sound(frequenza); delay(1000); nosound; readkey; frequenza := 494; write('Suono a 494 Hz (Si)'); readkey; sound(frequenza); delay(1000); nosound; end.
Se compilo il codice, che non mi sembra contenga errori, produce sempre lo stesso suono, anche se la frequenza cambia. Come mai?
Grazie in anticipo.