noip2009初赛-国王放置

2009C-4-2（国王放置）在n*m的棋盘上放置k个国王，要求k个国王互相不攻击，有多少种不同的放置方法。假设国王放置在第(x,y)格，国王的攻击的区域是:(x-1,y-1),(x-1,y),(x-1,y+1),(x,y-1),(x,y+1),(x+1,y-1),(x+1,y),(x+1,y+1)。读入三个数n,m,k，输出答案。题目利用回溯法求解。棋盘行标号为0~n-1，列标号为0~m-1。

 

var
n,m,k,ans:integer;
hash:array[0..4,0..4] of integer;

procedure work(x,y,tot:integer);
//目前有tot个国王，现在想在坐标(x,y)上放置一个国王
var
i,j:integer;
begin
	if tot=k then//一共有k个国王棋子，到k即已经布置完
	begin
		inc(ans);
		exit;
	end;
	repeat
	while hash[x,y]<>0 do//如果在攻击区域内，则按照从上到下，从左到右的顺序查找
		begin
			inc(y);
			if y=m then
			begin
				inc(x);
				y:=0;
			end;
			if x=n then exit;
		end;
		for i:=x-1 to x+1 do//在国王的攻击区域标记
		begin
			if (i>=0) and (i<n) then
			begin
				for j:=y-1 to y+1 do
				begin
					if (j>=0) and (j<m) then inc(hash[i,j]);
				end;
			end;
		end;
		work(x,y,tot+1);//得到新的目标