大榕树 \ Pascal语言 \ 算法与技巧

用PASCAL编制音响程序

原文链接：http://www.mydrs.org/program/list.asp?id=20

在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.

作者：
来源：
时间：2001-05-26

上一篇：Pascal快速入门教程
下一篇：

大榕树 版权所有 ©1999-2006