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.
CHẠY CHỮ
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Trần Văn Toàn
Ngày gửi: 15h:58' 11-05-2018
Dung lượng: 353 Bytes
Số lượt tải: 0
Nguồn:
Người gửi: Trần Văn Toàn
Ngày gửi: 15h:58' 11-05-2018
Dung lượng: 353 Bytes
Số lượt tải: 0
Số lượt thích:
0 người
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.
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.
Các ý kiến mới nhất