编程乐园--游戏王

来者必看！

小勇士来了2 — 2012-07-30 23:19:00

大家看文章时请点击首页旁边的“pascal游戏”分类！不要往下拉动观看，否则很浪费时间！直接点那里！

中国象棋

小勇士来了2 — 2012-07-30 23:17:00

type qp=array[0..9,1..9]of shortint; const es:array['a'..'i']of byte=(1,2,3,4,5,6,7,8,9); se:array[ 1 .. 9 ]of char=('a','b','c','d','e','f','g','h','i'); ci:array['0'..'9']of byte=(0,1,2,3,4,5,6,7,8,9); qz:array[ 1 ..14 ]of string[2]=('車','馬','炮','仕','相','兵','帅','车','马','泡','士','象','卒','将'); yqp:qp=(( 8, 9,12,11,14,11,12, 9, 8), ( 0, 0, 0, 0, 0, 0, 0, 0, 0), ( 0,10, 0, 0, 0, 0, 0,10, 0), (13, 0,13, 0,13, 0,13, 0,13), ( 0, 0, 0, 0, 0, 0, 0, 0, 0), ( 0, 0, 0, 0, 0, 0, 0, 0, 0), ( 6, 0, 6, 0, 6, 0, 6, 0, 6), &nbs

贪吃蛇

小勇士来了2 — 2012-07-30 23:15:00

program example; {$M 9999,0,0} uses dos,crt,windows; const pic:array[1..25] of string=( ' ', ' ', ' ******************** *************** ', ' * ** ** ', ' * ** ** ', ' * * * ', ' * * * ', ' * * * ', ' * * * ', ' * * * ', ' * * * ', ' * * * ', ' * * * ', ' * * * ', ' * * * ', ' * * * ', ' * * * ', ' * * * ', ' * * * ', ' * * ** * ', ' * * ** * ', ' * ** ** ', ' * ** ** ** *** ** ', ' ********************* ** *************** ***** ** ', ' '); type shijian=array[1..4] of word; zuobiao=record x,y:longint; end; var ch:char; point,x,y,i,j,len,head,tail,col,line,point2,speed,score:longint; f:text; s:string; b,a:array[1..100,1..100] of boolean; she:array[1..1000000,1..2] of longint; //longint =====>>>> byte;^^^^^>><<<<<<<<<<>>>>>>>>>> t1,t2:shijian; apple,p_mark:zuobiao; function turnstr(x:longint):string; begin str(x,turnstr); while length(turnstr)<4 do turnst

无敌西游剧情模式（部分测试）

小勇士来了2 — 2012-07-30 23:13:00

program xiyou(input,output); var q,w,e,r,t,y,u,i,o,p,a,lv,s,d,f,djingyan,jingyan,g,h,j,k,l,money,rwjingyan,zwq,fwq,zhiye,gong,fang,bisha, xsheng,dsheng,qian,shangyao,bigshangyao:longint; z,x,c,v,b,n,m:string; sjingyan:array[1..30] of longint= (40,80,150,270,410,620,730,840,950,1060,1270,1480,1690,1900,2210,2490,2800,3200,3680,4200,5000,5500,6100 ,7300,8500,9760,10900,13100,15500,18000); sjj:array[1..10] of longint=(5,16,24,38,49,60,71,82,99,120); gname1:array[0..3] of string=('怪松鼠','食人草','飞啄鸟','小熊'); gname2:array[0..3] of string=('小铁球','铁刺团','铁人','铁巨人'); qqq,www,eee,rrr,ttt,yyy,uuu,iii,ooo,ppp:longint; qq,ww,ee,rr,tt,yy,uu,ii,oo,pp,aa,ss,dd,ff,gg,hh,jj,kk,ll,rwwc:array[0..10000] of longint; f1,f2:text; zz,xx,cc,vv,bb,nn,mm:array[0..10000,0..10000] of longint; twq:array[0..7] of string; twqg,twqf,twqbs:array[0..7] of longint; wq1:array[0..7] of string=('无','铁剑','钢剑','勇者之剑','银剑','必杀剑','光之剑','封印之剑'); wq1g:array[0..7] of longint=(0,15,45,50,90,40,10