Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

22nd
Янв

Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука

Posted by obzor under Pascal

Написал мелодию по нотам. Если воспроизводить по шагам, то играет все ноты, если запустить на выполнение программу целиком, то половина нот не воспроизводится, в чем проблема?

Код:


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.