Chào mừng quý vị đến với website của ...
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tài liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
Gốc > Bài viết > Chia sẻ kinh nghiệm >
Trần Văn Toàn @ 15:44 11/05/2018
Số lượt xem: 50
CHẠY CHỮ
program chay_chu;
uses crt;
const s='CHAO CAC BAN';
var x, y, i: byte;
BEGIN
for x:=1 to 70 do
begin
gotoxy(x,10); writeln(s);
delay(100); clrscr;
end;
for y:=1 to 30 do
begin
gotoxy(30,y);writeln(s);
delay(300);clrscr;
end;
x:=1; y:=30;
for i:=1 to 30 do
begin
gotoxy(x,y);writeln(s);
delay(300); clrscr;
x:=x+2; y:=y-1;
end;
end.
Trần Văn Toàn @ 15:44 11/05/2018
Số lượt xem: 50
Số lượt thích:
0 người
- ĐẢO NGƯỢC CHUỖI (11/05/18)
- KIỂM TRA SỐ NGUYÊN TỐ (11/05/18)
- ĐẢO NGƯỢC DÃY SỐ (11/05/18)
- NHẬP VÀ HIỂN THỊ MẬT KHẨU BẰNG KÍ TỰ * (11/05/18)
- SẮP XẾP DÃY SỐ VÀ TÌM KIẾM NHỊ PHÂN (11/05/18)
Các ý kiến mới nhất