Не воспроизводются звуки в паскаль!

@Константинн · Регистрация: 06.03.2011

Студворк — интернет-сервис помощи студентам

Нашёл на форуме программу которая реализует мелодию из к/ф бумер.
Сначала запустил на компиляторе который стоял у меня ничего не воспроизводилось,
потом скачал компилятор от "Puporev" так же не т никаких результатов.

В ЧЁМ ДЕЛО???

Вот мелодия если что!

Pascal

program bumer;
uses crt;
begin
repeat
sound(400);
delay(64000);
nosound;
sound(600);
delay(64000);
nosound;
delay(64000);
sound(600);
delay(64000);
nosound;
sound(400);
delay(64000);
nosound;
delay(64000);
sound(700);
delay(34000);
nosound;
sound(600);
delay(34000);
nosound;
sound(700);
delay(34000);
nosound;
sound(600);
delay(34000);
nosound;
sound(700);
delay(34000);
nosound;
sound(600);
delay(34000);
nosound;
sound(700);
delay(34000);
nosound;
sound(600);
delay(34000);
nosound;
sound(700);
delay(34000);
nosound;
sound(800);
delay(64000);
nosound;
delay(2000);
sound(800);
delay(64000);
nosound;
delay(64000);
delay(64000);
until keypressed;
end.

@Puporev · 05.05.2011, 18:39

Абсолютно тупые, устаревшие задержки, нужно все delay переписывать.
Попробуйте эти мелодии.
Музыка на Pascal
пост #5

@Константинн · 05.05.2011, 19:13 **[ТС]**

Дело в том что у меня вообще по-моему не работает воспроизведение.

если я даже напишу

Pascal

program sound;
begin
repeat
sound(600);
until keypressed;
end.

может не работает маленький писклявый динамик на мат. плате)?

Милодии посмотрел тоже не работают)

@Puporev · 05.05.2011, 19:16

Сообщение от Константинн

может не работает маленький писклявый динамик на мат. плате)?

Скорее всего...

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	05.05.2011, 18:39	2
	Абсолютно тупые, устаревшие задержки, нужно все delay переписывать. Попробуйте эти мелодии. Музыка на Pascal пост #5 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	05.05.2011, 19:16	4
	Сообщение от Константинн может не работает маленький писклявый динамик на мат. плате)? Скорее всего... 0

Опции темы