如何在pascal里加音响

用PASCAL编制音响程序
http://www.mydrs.org 2001-5-26 大榕树

在PASCAL语言中，SOUND的语法为SOUND（FREQNER），参数FE-QUENCY频率，单位为赫兹。过程DELAY的语法为：DELAY（DURATION），参数是以毫秒为单位表示延时时间。过程NOSOUND用来关闭扬声器。
我们可以用PASCAL来编制一个模拟电话铃声的小程序，十分有趣，也很逼真。程序如下：

program sm(input,output);
uses crt;
procedure m(f:integer;d:real);
begin
sound(f);
delay(trunc(200*d))
end;
var i:integer;
begin
for i:=1 to 15 do
begin
m(650,10);
m(520,10);
nosound
end;
end.