turbo.pascal语言为我们提供了三个过程,过程sound的语法为:sound(frequercy),参数frequency表示频率,单位为赫兹,过程delay的语法为:delay(duration),参数duration是以毫秒为单位表示的延时时间;过程nosound用来关闭扬声器。
近日我用pascal 5.0编了以下一个模拟电话铃声的小程序,声音十分逼真,如果把程序中的数字更改将会发出其它声音,例如把delay(trunc(200＊d))中的200改为2000就会发出逼真警笛声.十分有趣.感兴趣的朋友可在这个基础上增加或修改一些语句,把它变成能奏出动听音乐的程序。
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.
(广东省湛江市霞山区文霞路2号 邱朱胜 524000)