NoSound

Дата добавления: 2015-06-12; просмотров: 479; Нарушение авторских прав

End;

У даному прикладі звуковий сигнал частотою 500 Гц буде звучати 2 секунди (2000 мс). За допомогою цих процедур можна створити найрізноманітніші звукові ефекти. Для цього використовується набір частот, що відповідають нотам різних октав:

Нота	Велика октава	Мала октава	Перша октава	Друга октава
До	130,81	261,63	523,25	1046,50
Ре	146,83	293,66	587,33	1174,07
Мі	164,81	329,63	559,26	1318,05
Фа	174,61	349,23	698,46	1396,09
Соль	196,00	392,00	784,99	1568,00
Ля	220,00	440,00	880,00	1760,00
Сі	246,94	493,88	987,77	1975,00

Для використання в процедурі Sound усі зазначені в таблиці значення частот округлюються. Приклад, виконання за допомогою вбудованого динаміка дитячої пісеньки «Ялинка» за такою лінійною програмою:

program muzika;

uses crt;

Begin

sound(785); delay(10000); nosound;

sound(659); delay(5000); nosound;

sound(785); delay(10000); nosound;

sound(659); delay(5000); nosound;

sound(785); delay(5000); nosound;

sound(698); delay(5000); nosound;

sound(659); delay(5000); nosound;

sound(587); delay(5000); nosound;

sound(523); delay(20000); nosound;

sound(785); delay(10000); nosound;

sound(1046); delay(5000); nosound;

sound(880); delay(5000); nosound;

sound(785); delay(10000); nosound;

sound(659); delay(5000); nosound;

sound(785); delay(5000); nosound;

sound(698); delay(5000); nosound;

sound(659); delay(5000); nosound;

sound(587); delay(5000); nosound;

sound(523); delay(20000); nosound;

End.

Домашнє завдання:

• За підручником прочитати сторінки 47—52;

• Вивчити означення, прочитані на лекції;

• Написати у зошит програму, що виводить наекран псевдографічне зображення, наприклад, таке як на малюнку. Як символи можна використовувати символи ASCII-таблиці з кодами 176—178,219—223.

<== предыдущая лекция	\|	следующая лекция ==>
TextColor(6); Write('Коричневі символи').	\|	Практична робота