Trường THPT Trực Ninh B
Chào mừng bạn đã đến với Diễn đàn chính thức trường THPT Trực Ninh B. Nếu chưa có tài khoản, đăng ký ngay! Đã có tài khoản? Vui lòng đăng nhập để tham gia cộng đồng mạng lớn nhất của trường.

Trường THPT Trực Ninh B

Trực Thái, Trực Ninh, Nam Định
 
Trang ChínhTrang Chính  CalendarCalendar  GalleryGallery  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng Nhập  
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Keywords
phồng division
Latest topics
January 2019
MonTueWedThuFriSatSun
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendarCalendar
Thống Kê
Hiện có 2 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 2 Khách viếng thăm

Không

Số người truy cập cùng lúc nhiều nhất là 12 người, vào ngày Wed Aug 14, 2013 6:51 pm

Share | 
 

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

Go down 
Tác giảThông điệp
Chocolate
Thành viên nhiệt tình
Thành viên nhiệt tình


Tổng số bài gửi : 156
Điểm : 3821
Danh vọng : 4
Ngày sinh : 02/10/1995
Ngày tham gia : 24/12/2011
Tuổi : 23
Đến từ : Tp. Trực Cường

Bài gửiTiêu đề: Hãy thưởng thức nhạc giao hưởng theo phong các số   Sat Feb 11, 2012 8:35 pm

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

_________________
Đi lang thang về miền đơn độc
Với vầng trăng chếnh choáng
Trên yên ngựa mỏi mòn
Về Đầu Trang Go down
Xem lý lịch thành viên http://trucninhb.forumvi.com
 
Hãy thưởng thức nhạc giao hưởng theo phong các số
Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Trường THPT Trực Ninh B :: Học hỏi :: Tin học-
Chuyển đến