博文
[置顶] 来者必看！(2012-07-30 23:19:00)
摘要：
大家看文章时请点击首页旁边的“pascal游戏”分类！
不要往下拉动观看，否则很浪费时间！直接点那里！
......
中国象棋(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......
贪吃蛇(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......
无敌西游剧情模式（部分测试）(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......