有時候，軟件需要播放一些音樂，這時候該怎麽辦呢？使用復雜的winAPI？不，還有更簡單的方法：

uses crt;
const
 n=...; 
 t=...;  
 a:array[1..t]of longint=(...); 
 b:array[1..t]of real=(...); 
 sounds:array[-6..14]of longint=(...); 
var
 i:longint;
begin
 for i:=1 to t do
  begin
   sound(sounds[a[i]]);
   delay(trunc(b*n));
   nosound;
  end;
 
end.

那麽這段代碼是什麽意思呢？如下：

uses crt;
const
 n=...;   //每一拍的音長
 t=...;   //共有幾個音符
 a:array[1..t]of longint=(...);   //音高(do就是1，下點就是減掉7，上點就是加上7)
 b:array[1..t]of real=(...);     //音長(以簡譜中沒有下劃線沒有附點的為一拍)
 sounds:array[-6..14]of longint=(...);  //音高hz
var
 i:longint;
begin
 for i:=1 to t do
  begin
   sound(sounds[a[i]]);   
 
//播放
   delay(trunc(b*n));     //等待
   nosound;               //關閉上一次聲音
  end;
end.

大家可以試試一些較短的樂曲來演奏，雖然效果不是很好，但是較為簡單。

程序的音頻輸出