神奇音乐程序
程序①产生太空音响效果。当本程序运行时，将产生类似科幻电影中的太空音响效果，令人仿佛置身于茫茫天际之中。
程序①清单如下：
/*space.c产生太空音响效果*/
#include"dos.h"
#include"bios.h"
#include"stdlib.h"
void main(void)
{
int freq;∥设置频率变量
long i;∥设置循环变量
do { ∥随机地取一个频率
do {
freq=rand();
} while (freq>5000);
sound(freq); ∥延时
for (i=0;i
nosound(); } 程序
②产生激光爆炸的音响效果。当此程序运行时，可以听到仿佛宇宙人在互相用激光枪射击的声响。
程序②清单如下：
/*laser.c产生激光爆炸音响效果*/
#include"dos.h"
#include"bios.h"
void main(void)
{
int freq:∥设置频率变量
int i;∥设置循环变量
while (bioskey(1)==0)
{∥按任意键即可退出本程序 ∥降调
for (freq=3000;freq>1000;freq-=50)
{ sound (freq); ∥延时
for (i=0;i<10000;i++);
}
nosound();
}
} 两例程序在Turbo C2.0下调试通过。 (安微 吴雁翔)