📄 dpi43.htm
字号:
<html>
<head>
<title>用Pascal编音响程序 </title>
<meta content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
</tr>
</tbody>
</table>
<table border=0 bordercolordark=#66aaff bordercolorlight=#66aaff cellpadding=0
cellspacing=0 width=680 align="center" height="128">
<tbody>
<tr>
<td bgcolor=#ffffff height=15>
<div align=center class=H1> <b>用Pascal编音响程序</b> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=389>
<p align="center"> </p>
<p>turbo.pascal语言为我们提供了三个过程,过程sound的语法为:sound(frequercy),参数frequency表示频率,单位为赫兹,过程delay的语法为:delay(duration),参数duration是以毫秒为单位表示的延时时间;过程nosound用来关闭扬声器。<br>
近日我用pascal 5.0编了以下一个模拟电话铃声的小程序,声音十分逼真,如果把程序中的数字更改将会发出其它声音,例如把delay(trunc(200＊d))中的200改为2000就会发出逼真警笛声.十分有趣.感兴趣的朋友可在这个基础上增加或修改一些语句,把它变成能奏出动听音乐的程序。<br>
program sm(input,output);<br>
uses crt;<br>
procedure m(f:integer;d:real);<br>
begin<br>
sound(f);<br>
delay(trunc(200＊d))<br>
end;<br>
var i:integer;<br>
begin<br>
for i:=1 to 15 do<br>
begin<br>
m(650,10);<br>
m(520,10);<br>
nosound;<br>
end;<br>
end.<br>
(广东省湛江市霞山区文霞路2号 邱朱胜 524000)
<p align="center"><script src="../../2.js"></script></a>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -