ITK35Zone
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
ITK35Zone


 
Trang ChínhTrang Chính  Latest imagesLatest images  Đă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 
Lap trinh Pascal: Coi bao dong! EmptyWed Dec 16, 2009 8:17 pm

mycuteswallow
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 | Báo cáo lạm dụng | Thảo luận mới nhất