Cho dòng chữ ‘Lướt sang phải’ lướt sang phải.
Mình đăng lại lần hai rồi đấy. Đề năm đó mình thi huyện.
Cho dòng chữ ‘Lướt sang phải’ lướt sang phải. Mình đăng lại lần hai rồi đấy. Đề năm đó mình thi huyện.
By Josephine
By Josephine
Cho dòng chữ ‘Lướt sang phải’ lướt sang phải.
Mình đăng lại lần hai rồi đấy. Đề năm đó mình thi huyện.
uses crt;
var st:string;
x:word;
label 1;
begin
clrscr;
st:=’Luot sang phai’;
write(‘ ‘);
x:=2;
1:
gotoxy(x-1,wherey);
write(‘ ‘);
gotoxy(x,wherey);
write(st);
inc(x);
delay(50);
if wherey<=1 then
goto 1;
readln;
end.
uses crt;
var i:longint;
begin
clrscr;
while i<=88 do
begin
inc(i);
write(‘ ‘);
gotoxy(i,1);
write(‘Luot sang phai’);
delay(50);
clrscr;
if i>88 then
begin
gotoxy(i,1);
write(‘Luot sang phai’);
end;
end;
readln;
end.