freepascal.ru

Можете написать мне простую мелодию в FREE Pascal, состоящую из нот ( до ре ми фа соль ля си) Чтоб просто они друг за другом проиграли и вырубились. Или просто напишите структуру такой программы ( модули там есть: play; sound; delay; nosound и т.д.) Просто я не могу разобраться как это сделать. В инете информации не нашёл.

use crt;

NoSound; // Выключает источник звука.
Sound(F: Word);// Запускает источник звука с частотой F (Гц).

PapaNT
Вот только не всегда это работает. В Linux мне таким способом звуков добиться не удалось. Впрочем, не исклбчено, что такие звуки в звуковую карту не перенаправляются.