ITK35Zone


 
Trang ChínhTrang Chính  Đăng kýĐăng ký  Đăng Nhập  
Chào mừng các bạn đã đến với diễn đàn ITK35Zone - Lớp CNTT K35 Trường Đại học Sư phạm TP.HCM
Hiện diễn đàn đang bị lỗi kĩ thuật, mong mọi người thông cảm. BQT sẽ cố gắng khắc phục trong thời gian sớm nhất...

Share | 

 

 Lap trinh Pascal: Coi bao dong!

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Wed Dec 16, 2009 8:17 pm

avatar
Usermycuteswallow Người này hiện đang:
Level: Ma Mới
Danh vọng:3


Ma Mới

mycuteswallow

Ma Mới

Giới tính : Nam
Đến từ : Tien Giang
Join : 23/11/2009
Bài gửi : 3
HUMOR : ???

Bài gửiTiêu đề: Lap trinh Pascal: Coi bao dong!

 
program coi_bao_dong;
uses crt;
var coi:integer; x,y:INTEGER;
begin
clrscr;
Textbackground(green);
Clrscr;
x:=10;y:=10;
Gotoxy(x,y);
Textcolor(red);writeln('Day la Chuong trinh COI BAO DONG!');
Gotoxy(x+5,y+5);
Textcolor(blue);writeln('Day la Chuong Trinh COI BAO DONG!');
Gotoxy(x+10,y+10);
Textcolor(white+blink); writeln(' Viet boi: mycuteswallow (dinhvan98)');
readln;
writeln (' Moi ban go Enter de Play');
readln;
repeat
for coi:=500 to 4000 do
begin
delay (1);
sound (coi);
end;
begin
for coi:=4000 to 500 do
delay (1);
sound (coi);
end;
until keypressed;
nosound;
end.



Số lần được cảm ơn : Message reputation : 100% (2 votes)

 

Lap trinh Pascal: Coi bao dong!

Xem chủ đề cũ hơn Xem chủ đề mới hơn 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
ITK35Zone :: Hỏi Đáp, Góp ý-
 
Free forum | © phpBB | Free forum support | Liên hệ | Report an abuse | Create a blog