神奇音乐程序
程序①清单如下：
/*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<freq*t;i++);
} while (bioskey(1)==0);∥按任意键后即可退出本程序
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下调试通过。(安微 吴雁翔)