Graph trong Pascal

[baothanh12345]

Dưới đây là đoạn chương trình vẽ dòng chữ chạy ngang màn hình. Thế nhưng chữ cũ không bị xóa mà chữ mới cứ write ra. Vì vậy thay vì chữ chạy thì chữ cứ bị loang ra. Mọi người xem giúp bị lỗi gì nhé!

uses crt, graph;
var gd,gm: integer;
 
procedure Run(s: integer);
var page: byte; x,y: integer;
begin
      page:=1;
      x:=GetMaxX; y:= GetMaxY div 3;
      SetTextJustiFy(0,1);
      SetWriteMode(xorput);
      Setactivepage(page);
      Repeat
            OuttextXY(x,y,s);
            SetVisualpage(page); 
            page:=not page;
            delay(10);
            OuttextXY(x+1,y,s);               
            x:=x-1;
            if -textwidth(s)>x then x:=getMaxX;
      Until (keypressed);
end;
Begin
      gd:=4;
      InitGraph(gd,gm,'C:\FPC\2.2.4\units\ỉ86-win32\graph");
      Setcolor(14);
      SetTextStyle(1,0,5);
      Run('Pascal');
      CloseGraph;
end.

[muabandienthoai]

Sau mỗi lần write chữ ra, bạn thử dùng clrscr để clear screen xem sao nhé

[newmeta1]

Sau mỗi lần write chữ ra, bạn thử dùng clrscr để clear screen xem sao nhé

clrscr không dùng được trong graph mà bạn!