一楼防吞

[无效] http://pan.baidu.com/share/link?shareid=3530222163&uk=1527255840

用法是用方向键，可以让红色方块上下左右移动，不会超格，并且有动画效果，可跳过动画，资源占用比较少（因为不是死循环刷屏），具体的自己去程序里看看吧（PS：最好用快捷方式打开哦~亲，直接全屏比较帅）。

源码你们说要不要开呢？

算了
不发源码没人看
源码在此
program color_square; uses crt,mouse; var i,j,k:longint; x,y:integer; tchar:char; stpd,dhpd:boolean; const square_long=18;square_wide=8; square:array [1..square_wide,1..square_long] of char = (('?,'-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','?), ('?,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','?), ('?,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','?), ('?,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','?), ('?,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','?), ('?,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','?), ('?,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','?), ('?,'-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','?)); procedure chushihua; begin clrscr; highvideo; cursoroff; textcolor(15); gotoxy(1,1); textbackground(0); clrscr; end; procedure drSQR(tx,ty:integer); var i_wrsqr,j_wrsqr:byte; begin for i_wrsqr:=1 to square_wide do begin for j_wrsqr:=1 to square_long do begin gotoxy(tx+j_wrsqr-1,ty+i_wrsqr-1); write(square[i_wrsqr,j_wrsqr]); if stpd=true then delay(1); if dhpd=true then begin delay(5); keypressed; if keypressed=true then dhpd:=false; end; end; end; end; procedure drmap(zbx,zby:integer); begin for i:=1 to 3 do begin for j:=1 to 4 do begin if not((zbx=j) and (zby=i)) then begin textbackground(3); drsqr((j-1)*19+1,(i-1)*8+1); end else continue; end; end; dhpd:=true; textbackground(4); drsqr((zbx-1)*19+1,(zby-1)*8+1); setmousexy((zbx-1)*19+1,(zby-1)*8+1); showmouse; dhpd:=false; end; procedure start; begin x:=1;y:=1; stpd:=true; drmap(x,y); stpd:=false; while true do begin keypressed; if keypressed=true then begin readkey; tchar:=readkey; if tchar in [chr(80),chr(72),chr(75),chr(77),chr(27),chr(3)] then begin case tchar of chr(72):if y>1 then dec(y); chr(80):if y<3 then inc(y); chr(75):if x>1 then dec(x); chr(77):if x<4 then inc(x); chr(27):halt; chr(3):halt; end; drmap(x,y); end; end; end; end; Begin {main} chushihua; start; end.

看不懂。。。真是高端洋气上档次啊。。。

忘了说，按esc或者ctrl+c退出

(('?,'-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','?), ('?,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ,'?), ('?,, ('?,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','?), ('?,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','?), ('?,'-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','?))是干什么的？话说这个程序有神马意义，感觉贴吧里很多诶，只是沉了而已

个人认为可视化还是用Graph比较好一点

我连单元格都没用过，那么多函数，我连普通的标准函数都记不住，跟别说crt单元了。还是为OI奋斗吧

……我一直好在意那个.7z的文件结尾啊魂淡！而且因为是解压到桌面的关系金山还疯狂的误报木马呢囧。
快捷方式运行的话一开始有全屏，但是很快就弹出了叫【16位MS-DOS子系统】的窗口宣称程序文件名无效请求检测pif，这个是啥意思0u0？
直接运行exe没有问题哦，麻烦下楼主解答我的问题，程序好评点赞。

其实可视化的话做delphi 吧，反正pascal学Delphi很简单的，我会了Pascal之后2个月就会Delphi了（当然是简单的东西了）

好坟必挖