Звуковые возможности модуля Crt

в модуле crt определены 2 процедуры (sound и nosound) для работы с внутренним громкоговорителем.
Если использовать процедуру Sound, то нужно прописать синтаксис - Sound(частота), а процедура nosound служит для включения внутреннего динамика и не имеет параметров.
приведу пример программы, пусть нужно проиграть малую октаву с длительностью звучания нот в 1 секунду.

Код:

program make_sounds;
uses crt;
const
Hz_Note:array[1..7] of real=
(130.81,146.83,164.81,174.61,196.00,220.00,246.94);
var
  i:Byte;
begin
 for i:=1 to 7 do begin
  sound (round(Hz_Note[i]));
delay(500);
end;
nosound
end.

Спасибо за темку, полезно) Только вот зачем задавать в массив числа с сотыми долями, а потом их округлять???? не легче ли сразу добавить целые числа?

можно и так, но это сделано преднамеренно, ведь это не просто числа с плавающей запятой, а точная частота ноты в октаве, изменение её приведет к нескольким искажениям звука (так например профессиональный музыкант может слышать до тысячной доли знака), но так как мы все таки не профессионалы и измерять не будем, то этим можно принебречь

Тогда правильнее будет писать sound (Hz_Note[i]);
Так нота будет звучать с наиболее приближенной к реальной частотой, как по настоящему, насколько я понимаю.

дело в том, что процедура sound имеет параметр частота, которая по умолчанию имеет тип Word, а он насколько я понимаю целочисленный, поэтому появляется необходимость округления

Ну тогда понятно)))

Решил попробовать вашу программу в деле, нашел несколько багов. Во-первых не 'erray', а 'array' (уже отредактировал) и вместо delay(500) нужно поставить число, как минимум в 100 раз больше, лучше всего использовать 65535 (максимальное значение для delay), иначе ноты можно просто не услышать.

Спасибо за исправление , действительно дельное

а вобще интересно, delay по идее измеряется в милисекундах, значит 500 - это примерно 0,5 секунд - ну тогда да, маловато будет, можно попробовать увеличить хотя бы до 3 секунд - то есть delay (3000), больше наверное пауза большая будет

при 65535 пауза еле заметная.

странно, сейчас у себя попробовала, у меня все нормуль, странно, может это от версии зависит или можно как то этот модуль редактировать что - ли?

может быть)

Эм... на сколько знаю это зависит от ПО. Например при запуске одной и той же программы в Borlan Pascal и Turbo Pascal delay работал по разному.

ну вот видимо в этом и причина такого разнообразия решения, хоть у меня и Turbo Pascal, но какая-то новая версия под Windows 7, вот такая ерунда и возникает