Question

pascal骑士游历的程序

题目描述
所谓骑士巡游问题，是指在n×n方格（n<=10）的国际象棋棋盘上，从任意指定的方格（x,y）出发，为马（也称骑士knight，马走“日”字）寻找一条走遍棋盘每一方格并且只经过一次的一条路径。
输入
仅一行包含3个正整数N 、X、Y
输出
符合总巡游的路径一共有多少条
样例输入
5 1 1
样例输出
304

Answer 1

虽说输入不一样
但你可以改一下，题目的网址http://codevs.cn/problem/1219/
const
maxm=50;
maxn=50;
var
m,n,x1,y1,x2,y2:integer;
i,j,k,x,y:integer;
map:array[-2..maxm+2,-2..maxn+2] of extended;
begin
fillchar(map,sizeof(map),0);
readln(m,n,x1,y1,x2,y2);
map[x1,y1]:=1;
for i:=x1+1 to x2 do
for j:=1 to m do
map[i,j]:=map[i-1,j-2]+map[i-1,j+2]+map[i-2,j-1]+map[i-2,j+1];
writeln(map[x2,y2]:0:0);
end.

Answer 2

{马巡游}
const m=5;   {棋盘大小}
type
	ar=array[1..m,1..m] of boolean;
var
	a:ar;
	i,j:shortint;
	n,num:longint;

procedure next(p,q:shortint;n:integer;a:ar);
begin
	if n=m*m then inc(num)
	else begin
		if (p+1<=m)and(q+2<=m)and(not a[p+1,q+2]) then begin 
			a[p+1,q+2]:=true; 
			next(p+1,q+2,n+1,a); 
			a[p+1,q+2]:=false; 
		end; 
		if (p-1>=1)and(q+2<=m)and(not a[p-1,q+2]) then begin 
			a[p-1,q+2]:=true; 
			next(p-1,q+2,n+1,a); 
			a[p-1,q+2]:=false; 
		end;
		if (p+1<=m)and(q-2>=1)and(not a[p+1,q-2]) then begin 
			a[p+1,q-2]:=true; 
			next(p+1,q-2,n+1,a); 
			a[p+1,q-2]:=false; 
		end;
		if (p-1>=1)and(q-2>=1)and(not a[p-1,q-2]) then begin 
			a[p-1,q-2]:=true; 
			next(p-1,q-2,n+1,a); 
			a[p-1,q-2]:=false; 
		end;
		if (p+2<=m)and(q+1<=m)and(not a[p+2,q+1]) then begin 
			a[p+2,q+1]:=true; 
			next(p+2,q+1,n+1,a); 
			a[p+2,q+1]:=false; 
		end;
		if (p-2>=1)and(q+1<=m)and(not a[p-2,q+1]) then begin 
			a[p-2,q+1]:=true; 
			next(p-2,q+1,n+1,a); 
			a[p-2,q+1]:=false; 
		end;
		if (p+2<=m)and(q-1>=1)and(not a[p+2,q-1]) then begin 
			a[p+2,q-1]:=true; 
			next(p+2,q-1,n+1,a); 
			a[p+2,q-1]:=false; 
		end;
		if (p-2>=1)and(q-1>=1)and(not a[p-2,q-1]) then begin 
			a[p-2,q-1]:=true; 
			next(p-2,q-1,n+1,a); 
			a[p-2,q-1]:=false; 
		end;
	end; 
end;

begin
	for i:=1 to m do for j:=1 to m do a[i,j]:=false;
	i:=1; j:=1; {起点}
	a[i,j]:=true; n:=1; num:=0;
	next(i,j,n,a);
	writeln('num=',num);
end.
{递归回溯算法}