pascal如何输出滚动字符文章摘要:uses crt; var i,j:longint; begin gotoxy(1,1); for i:=1 to 5000 do write(' '); j:=0; while not keypressed do begin delay(500), pascal如何输入一个字符,然后马上变成一个小圆点。 ; gotoxy(1,1); for i:=1 to 40 do write(' '); gotoxy(j+1,1); inc(j); j:=j mod 20; writeln('Hello World
|
|
时间:2013-09-20 22:50来源:未知 作者:admin 点击:
次 《pascal如何输出滚动字符》
| |