中國(guó)象棋源代碼
推薦 + 挑錯(cuò) + 收藏(0) + 用戶評(píng)論（0）
中國(guó)象棋源代碼
中國(guó)象棋的源程序，中文模式下方可使用。
程序代碼：
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),
??????? ( 0, 3, 0, 0, 0, 0, 0, 3, 0),
??????? ( 0, 0, 0, 0, 0, 0, 0, 0, 0),
??????? ( 1, 2, 5, 4, 7, 4, 5, 2, 1));
var
? t,sx,sy,ex,ey,bushu:integer;
? qipan:qp;
procedure initqp(var a:qp);
var i,j:integer;
begin
? fillchar(a,sizeof(a),0);
? for i:=1 to 9 do
? for j:=0 to 9 do
? a[j,i]:=yqp[j,i];
end;
procedure print(q:qp);
var i,j:integer;
? b:array[1..10,1..9]of string[2];
begin
? writeln;
? writeln('中國(guó)象棋[By angwuy]');
? writeln('紅:帥仕相車馬炮兵');
? writeln('黑:將士象車馬包卒');
? writeln;
非常好我支持^.^
(7) 100%
不好我反對(duì)
(0) 0%
下載地址
中國(guó)象棋源代碼下載
相關(guān)電子資料下載
- Makefile簡(jiǎn)介和使用方法 530
- 當(dāng)一名高職生成為開源代碼頂級(jí)貢獻(xiàn)者 111
- git命令的基本使用 357
- 分享一套生產(chǎn)管理MES系統(tǒng)源碼，可以直接拿來搞錢的好項(xiàng)目 140
- C/c++源代碼qt軟件 svn版本管理開發(fā)如何防泄密？ 48
- 為什么安秉信息的源代碼防泄密軟件這么穩(wěn)定？ 76
- C語(yǔ)言必備知識(shí)編譯預(yù)處理 419
- 非?？煽康腸#+svn或git服務(wù)器源代碼防泄密方案 全解析 82
- 極狐GitLab—新一代源代碼管理倉(cāng)庫(kù) 152
- 能夠生成java文檔注釋的命令 140