Написал мелодию по нотам. Если воспроизводить по шагам, то играет все ноты, если запустить на выполнение программу целиком, то половина нот не воспроизводится, в чем проблема? Как сделать чтобы код зазвучал целиком?
| Код |
program zvyk;
begin
System.Console.Beep(520,125); {до}
System.Console.Beep(880,125); {ля}
System.Console.Beep(880,125); {ля}
System.Console.Beep(784,125); {соль}
System.Console.Beep(880,125); {ля}
System.Console.Beep(698,125); {фа}
System.Console.Beep(520,125); {до}
System.Console.Beep(520,125); {до}
System.Console.Beep(520,125); {до}
System.Console.Beep(880,125); {ля}
System.Console.Beep(880,125); {ля}
System.Console.Beep(987,125); {си}
System.Console.Beep(784,125); {соль}
System.Console.Beep(520,375); {до с точкой}
system.Console.Beep(520,125); {до}
system.Console.Beep(587,125); {рэ}
system.Console.Beep(587,125); {рэ}
System.Console.Beep(987,125); {си}
System.Console.Beep(987,125); {си}
System.Console.Beep(880,125); {ля}
System.Console.Beep(784,125); {соль}
System.Console.Beep(698,125); {фа}
System.Console.Beep(698,125); {фа}
System.Console.Beep(880,125); {ля}
System.Console.Beep(880,125); {ля}
System.Console.Beep(784,125); {соль}
System.Console.Beep(880,125); {ля}
System.Console.Beep(698,375); {фа с точкой}
end.
|
|