11 / 11 / 9
Регистрация: 06.03.2011
Сообщений: 67
1

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

05.05.2011, 18:05. Показов 846. Ответов 3
Метки нет (Все метки)

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

В ЧЁМ ДЕЛО???

Вот мелодия если что!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
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.
0
05.05.2011, 18:05
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
05.05.2011, 18:05
Ответы с готовыми решениями:

Проблема с наушниками - очень тихо воспроизводятся системные звуки и звуки в играх.
Такая проблема: системные звуки и звуки в играх и программах очень тихо воспроизводятся. Могу слышать только очень высокие звуки, хотя...

Определяет кол-во вхождений одной Паскаль-строки в другую Паскаль-строку.
Здравствуйте. Не могли бы вы мне помочь написать программу, совсем не могу понять как ее написать. Вот задание: Составить программу,...

Перевести код из паскаль АБС в фри паскаль
Необходимо перевести этот код из паскаля АБЦ в фрипаскаль Спасибо! program test; const n=20; var ...

3
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
05.05.2011, 18:39 2
Абсолютно тупые, устаревшие задержки, нужно все delay переписывать.
Попробуйте эти мелодии.
Музыка на Pascal
пост #5
0
11 / 11 / 9
Регистрация: 06.03.2011
Сообщений: 67
05.05.2011, 19:13  [ТС] 3
Дело в том что у меня вообще по-моему не работает воспроизведение.

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

Pascal
1
2
3
4
5
6
program sound;
begin
repeat
sound(600);
until keypressed;
end.
может не работает маленький писклявый динамик на мат. плате)?


Милодии посмотрел тоже не работают)
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
05.05.2011, 19:16 4
Цитата Сообщение от Константинн Посмотреть сообщение
может не работает маленький писклявый динамик на мат. плате)?
Скорее всего...
0
05.05.2011, 19:16
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
05.05.2011, 19:16
Помогаю со студенческими работами здесь

Кто учил Паскаль по книге "Паскаль для школьников Ушаков Д.М,Юркова Т.А" отпишитесь
Ребят кто учил Pascal по книге "Паскаль для школьников Ушаков Д.М,Юркова Т.А" ,в общем дело такое ,до этого учил паскаль по книге...

Снова перевести с Турбо Паскаля на Паскаль АВС или Паскаль АВС.Нет
program derevo; uses crt, graph; function cx(length, angle:real):integer; begin cx:=round(length*cos(angle)); end; ...

звуки
Знаю есть мануалы, но что то подходящего не нашел. нужно сделать так, что бы музыка остановилась после первого проигрыша. вот код...

Звуки в ЖД
Дня 3 назад обратил внимание, что каждые 2- 2.5 минуты в месте где расположен ЖД слышен звук Цык, а так все работает нормально. У меня...

Звуки
Доброго времени суток, не знал я куда задать этот вопрос т.к конкретно под него темы не нашел. Вопрос будет таким: Нормально ли и Должен...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Микросервис с нуля на Go с Kafka
stackoverflow 12.02.2025
Когда я впервые столкнулся с необходимостью разделить монолитное приложение на микросервисы, передо мной встал вопрос выбора правильных технологий и подходов. После долгих экспериментов с различными. . .
Микросервис с нуля на C# с RabbitMQ
stackoverflow 12.02.2025
Переход от монолитной архитектуры к микросервисной - это не просто модное веяние, а закономерный этап эволюции программных систем. В отличие от монолита, где все компоненты тесно связаны между собой. . .
Docker для начинающих
stackoverflow 12.02.2025
В современном мире разработки программного обеспечения все чаще возникает необходимость быстро и надежно разворачивать приложения в различных средах. Разработчики постоянно сталкиваются с проблемой. . .
Создание бота для Телеграм на C#
stackoverflow 12.02.2025
В современном мире корпоративных коммуникаций Telegram-боты становятся незаменимым средством автоматизации бизнес-процессов и взаимодействия с сотрудниками. Как создать такого бота, который сможет. . .
Операторы сравнения (== и ===) в JavaScript
hw_wired 12.02.2025
JavaScript предоставляет два основных оператора сравнения - оператор нестрогого равенства (==) и оператор строгого равенства (===). На первый взгляд они могут показаться очень похожими, но их. . .
Определение адреса, откуда репозиторий Git был клонирован
hw_wired 12.02.2025
Система контроля версий Git хранит всю информацию о репозитории в специальной директории . git, включая данные об удаленных источниках. Эта информация необходима для синхронизации изменений между. . .
Объединение нескольких коммитов Git в один
hw_wired 12.02.2025
Представьте, что вы работаете над новой функциональностью и создали десяток небольших коммитов: исправление опечатки, форматирование кода, добавление комментариев, реализация основной логики. Каждый. . .
Как добавить локальную ветку в удалённый репозиторий Git
hw_wired 12.02.2025
Локальная ветка в Git - это изолированная линия разработки, существующая только на вашем компьютере. Представьте себе дерево с множеством веток - каждая ветка может расти в своем направлении, не. . .
Статическое отражение в C++
stackoverflow 12.02.2025
Статическое отражение представляет собой мощный механизм, позволяющий программам анализировать и манипулировать своей собственной структурой во время компиляции. Эта возможность открывает. . .
C++ в 21 веке - Бьярне Страуструп
stackoverflow 12.02.2025
В современном мире разработки программного обеспечения C++ продолжает оставаться одним из ключевых языков программирования, несмотря на свой солидный возраст - более 45 лет с момента создания. За это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru