這題我是用廣度優先搜索的方法來做的

我先找出下一個能走的點，再把它放進隊列里，如果到了目標點，就把tail放進best，tail等于0，最后輸出。

做這題的時候，用最大數據時，一直棧溢出，原來是數組不夠大，把50*50算成250了，搞得我調試了超久。

const
dx:array[1..8]of integer=(2,2,1,1,-1,-1,-2,-2);
dy:array[1..8]of integer=(-1,1,-2,2,-2,2,-1,1);
var
qx,qy,n,m,best:longint;
father:array[1..2500]of longint;
a:array[-1..500,-1..500]of longint;
state:array[1..2500,1..3]of longint;
procedure init;
begin
? ? readln(n,m);
? ? read(qx,qy);
? ? a[1,1]:=1;
end;


procedure bfs;
var
head,tail,wayn,x,y,k:integer;
begin
? ? father[1]:=0;head:=0;tail:=1;
? ? state[1,1]:=1;state[1,2]:=1;
? ? repeat
? ? ? ? ?inc(head);
? ? ? ? ?for wayn:=1 to 8 do
? ? ? ? ?begin
? ? ? ? ? ? ?x:=state[head,1]+dx[wayn];
? ? ? ? ? ? ?y:=state[head,2]+dy[wayn];
? ? ? ? ? ? ?if (x>=1)and(x<=m)and(y>=1)and(y<=n)and(a[x,y]=0) then
? ? ? ? ? ? ?begin
? ? ? ? ? ? ? ? ?inc(tail);father[tail]:=head;
? ? ? ? ? ? ? ? ?state[tail,1]:=x;state[tail,2]:=y;
? ? ? ? ? ? ? ? ?a[x,y]:=1;
? ? ? ? ? ? ? ? ?state[tail,3]:=state[head,3]+1;
? ? ? ? ? ? ? ? ?if (x=qx)and(y=qy) then
? ? ? ? ? ? ? ? ?begin
? ? ? ? ? ? ? ? ? ? ?best:=tail;
? ? ? ? ? ? ? ? ? ? ?tail:=0;
? ? ? ? ? ? ? ? ? ? ?break;
? ? ? ? ? ? ? ? ?end;
? ? ? ? ? ? ?end;
? ? ? ? ?end;
? ? until head>=tail;
end;
procedure print;
begin
? ? if best=0 then writeln('NEVER') else write(state[best,3]);
end;
begin
? ? init;
? ? bfs;
? ? print;
end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500247.html

總結

以上是生活随笔為你收集整理的骑士旅行pascal解题程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。