:: Quên mật khẩu ::

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

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 | www.sosblogs.com