翱翔的感觉

摘要： program bashuma;const dir:array[1..4,1..2]of integer=((1,0),(-1,0),(0,1),(0,-1)); maxl=1000;type sta=record kx,ky:integer; m:array[1..3,1..3]of integer; end;var tar,old,new:sta; i,j,head,tail,k:integer; q:array[1..maxl]of sta; gans:boolean;function gnew(k:integer):boo... 阅读全文