中国象棋源代码

中国象棋源代码

中国象棋的源程序，中文模式下方可使用。

程序代码：

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('中国象棋[By angwuy]');
  writeln('红:帅仕相車馬炮兵');
  writeln('黑:将士象车马包卒');
  writeln;