Dòng chữ nhấp nháy

[seochoikiemgao]

Lập trình viết ra màn hình dòng chữ nhấp nháy

[nguyenhoangcomputer]

Dòng chữ nhấp nháy có di chuyển không? Nếu không thì đơn giản, sử dụng kết hợp các lệnh delay, clrscr, write hoặc có thể dùng goto nếu muốn in ra đúng vị trí mình cần. Nếu có di chuyển thì có phức tạp hơn chút, tham khảo các topic hướng dẫn in ra dòng chữ chạy và kết hợp cách làm của dòng chữ không di chuyển bên trên để in ra.

[4B1601]

bạn thử viết xem nào sao mình viết ko được nhỉ, chỉ nhấp nháy tại chỗ thôi
à mình thử lại viết được rồi bạn xem đúng chưa, mà trong Pascal không có chế độ cho chữ to ra nhỉ

uses crt;
Var S:string; stop:boolean;
Begin
 write('Nhap vao xau S:');
 Readln(S);
 stop:=false;
 while not stop do
  Begin
   gotoxy(10,20);
   write(S);
   delay(50);
   clrscr;
   stop:=keypressed;
  End;
 Readln
 End.

[nguyenduong2402]

Nếu bạn đã làm cho nhấp nháy tại chỗ, dòng chữ di chuyển thì chỉ việc kết hợp 2 đoạn code đó là ok mà. Mình thì chẳng bao giờ làm mấy bài như thế này nên thôi, để phần việc code cho bạn khác [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]