|
constf:array[1..12,1..2]of -2..2=((1,0),(2,0),(1,-1),(0,-2),(0,-1),(-1,-1),(-2,0),(-1,0),(-1,1),(0,1),(0,2),(1,1));varmap:array[-5..200,-5..200]of boolean;i,j,m,n,tt:integer;c:char;procedure search(x,y:integer);vari:integer;beginfor i:=1 to 12 doif map[x+f[i,1],y+f[i,2]] then beginmap[x+f[i,1],y+f[i,2]]:=... |
