Hãy thưởng thức nhạc giao hưởng theo phong các số

Sau đây mình sẽ post một chương trình pascal rất đơn giản phát ra loa máy tính một đoạn hợp xướng trong Giao hưởng số 9 của Bêtôven. Xin nhắc lại là rất đơn giản, bạn có thể tự tạo cho mình một chương trình hoặc một bản nhạc khác. Chương trình này mình vừa viết xong là post luôn. Trước hết, bạn mở notepad copy đoạn văn bản dưới đây vào, lưu vào thư mục gốc đĩa c với tên nhac.txt
m 60 f 30 s 60 f 30 m 30 r 30 d 60 r 30 m 75 r 120 d 75 r 60 m 30 d 30 r 30 m 30 f 30 m 30 d 30 r 30 m 30 f 30 m 30 r 30 d 30 r 30 g 30 m 90 f 30 s 60 f 30 m 30 r 30 d 60 r 30 m 30 r 45 d 75
Sau đó bạn chạy chương trình pascal sau và thưởng thức
program nhac;
uses crt;
var a:char; f:text; b:word;
begin
assign(f,'c:\nhac.txt');
reset(f);
while not eof(f) do
begin
read(f,a,b);
case a of
'd':sound(512);
'r':sound(575);
'm':sound(645);
'f':sound(683);
's':sound(767) else sound(300) end;
delay(b*10);
end;
close(f);
end.
Chúc mọi người vui vẻ.