Вопрос № 85958: ЭКСПЕРТЫ RUSFAQ.RU Помогите зделать задачу. Нужно в Pascal'е написать программу которая проигрывает свуки сирены, не музыкальний файл, а с помощью специальных операторов...
Пожайлуста помогите......Вопрос № 86007: Помогите написать программу!!
Текст программы на Паскале хранится в файле на диске. Составить программу обработки текста программы: 1) Подсчитать, какие ключевые слова Паскаля и в каком колличестве использованы в обрабатываемом тексте; 2)Сос...
Вопрос № 85.958
ЭКСПЕРТЫ RUSFAQ.RU Помогите зделать задачу. Нужно в Pascal'е написать программу которая проигрывает свуки сирены, не музыкальний файл, а с помощью специальных операторов...
Пожайлуста помогите...
Отправлен: 08.05.2007, 05:32
Вопрос задал: Umanskiy (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Вологин Всеволод Вячеслввович
Здравствуйте, Umanskiy!
Применение процедуры Sound(Hz : Word){подключает внутренний динамик, где Hz - это частота в в герцах}, а также NoSund{вылючает внутренний динамик}.
Продецура Delay(Ms : Word) {обеспечиваетзадержку на Ms микросекунд}.
Это всё удовольствие будет получено при подключении модуля Crt.
--------- Студент
Предлагаю свой вариант решения этой задачи.
Сдесь, варьируя значения констант min и max, можно добиться звучания разных сирен.
При этом, возможно, придеться изменять задержку [ Delay(50) ], для более реального звучяния.
Приложение:
Ответ отправил: Louken (статус: 1-ый класс)
Ответ отправлен: 08.05.2007, 13:59
Вопрос № 86.007
Помогите написать программу!!
Текст программы на Паскале хранится в файле на диске. Составить программу обработки текста программы: 1) Подсчитать, какие ключевые слова Паскаля и в каком колличестве использованы в обрабатываемом тексте; 2)Составить перечень имен простых переменных, используемых в левой части оператора присваивания; 3) представить перечень меток программы в алфавитном порядке.
Отправлен: 08.05.2007, 14:30
Вопрос задал: Makes (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)
Отвечает: Gh0stik
Здравствуйте, Makes!
Вот программа которая выполняет действия из пункта 1 (смотрите приложение) - видоизменил свой проект написанный на Delphi.
Немного прокомментирую...
В константах описан массив спецслов - oper, его очень просто расширить, в переменной n - хранится количество спецслов. const
n=31;
oper:array [1..n] of string=
('begin','end','for','to','do',
'downto','with','in','if','then',
'else','procedure','function','repeat','until',
'while','const','var','set','of',
'array','string','label','type','uses',
'case','unit','and','or','nil','not');
В множестве signs - я храню "окаймляющие" символы (символы которыми могут заканчиваются либо начинаться спецслова): signs:set of char=[':',';','.',' ','[',']','(',')',#0,#9,#13,#15,#20,#31,#32,#34];
Для Delphi данное множество было описано так: signs:set of char=[':',';','.',' ','[',']','(',')',#32,#0]; как видно их меньше.
В связи с этим обращаюсь к экспертам, почему в Delphi - достаточно и этих, а для Pascal - опытным путем пришлось дополнять его еще и #9,#13,#15,#20,#31,#34.
Good Luck!!!
P.S. По поводу двух остальных пунктов, я думаю что их будет не сложно сделать - можно будет немного видоизменить данный код, а также рекомендую воспользоваться советами, которые дали ранее.
Приложение:
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 08.05.2007, 22:15 Оценка за ответ: 5 Комментарий оценки: Спасиьо огромное!!! Напиши мне текст
задачи полностью если можеш!!!
