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.

0 bình luận về “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.”

1. 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.

   Bình luận

2. 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.

   Bình luận