題意:
在乙個n m 格仔的棋盤上,有乙隻西洋棋的騎士在棋盤的左下角 (1;1)(如圖1),騎士只能根據象棋的規則進行移動,要麼橫向跳動一格縱向跳動兩格,要麼縱向跳動一格橫向跳動兩格。 例如, n=4,m=3 時,若騎士在格仔(2;1) (如圖2), 則騎士只能移入下面格仔:(1;3),(3;3) 或 (4;2);對於給定正整數n,m,i,j值 (m,n<=50,i<=n,j<=m) ,你要測算出從初始位置(1;1) 到格仔(i;j)最少需要多少次移動。如果不可能到達目標位置,則輸出"never"。
input
輸入檔案的第一行為兩個整數n與m,第二行為兩個整數i與j。
output
輸出檔案僅包含乙個整數為初始位置(1;1) 到格仔(i;j)最少移動次數。
sample input
5 31 2
sample output
3分析:
此題用廣搜。
const
dx:array[1..8] of longint=(2,1,-1,-2,-2,-1,1,2);
dy:array[1..8] of longint=(1,2,2,1,-1,-2,-2,-1);
vara:array[-1..50*50+2,-1..50*50+2] of longint;
state:array[1..50*50,1..3] of longint;
father:array[1..50*50] of longint;
i,j,n,m,max:longint;
procedure init;
begin
read(n,m);
readln(i,j);
a[1,1]:=1;
end;
procedure print;
begin
if max=0 then write('never')
else write(state[max,3]);
end;
function check(x,y:longint):boolean;
begin
check:=true;
if a[x,y]=1 then check:=false;
if (x<1) or (x>m) or (y<1) or (y>n) then check:=false;
end;
procedure bfs;
varhead,tail,k:longint;
begin
head:=0;
tail:=1;
state[1,1]:=1;state[1,2]:=1;
father[1]:=0;
repeat
inc(head);
for k:=1 to 8 do
if check(state[head,1]+dx[k],state[head,2]+dy[k])
then begin
inc(tail);
father[tail]:=head;
state[tail,1]:=state[head,1]+dx[k];
state[tail,2]:=state[head,2]+dy[k];
a[state[tail,1],state[tail,2]]:=1;
state[tail,3]:=state[head,3]+1;
if (state[tail,1]=i)and(state[tail,2]=j)
then begin
max:=tail;
tail:=0;
end;
end;
until head>=tail;
end;
begin
init;
bfs;
print;
end.
ssl1456 騎士旅行
騎士旅行 time limit 1000ms memory limit 65536k total submit 263 accepted 103 description 在乙個n m 格仔的棋盤上,有乙隻西洋棋的騎士在棋盤的左下角 1 1 如圖1 騎士只能根據象棋的規則進行移動,要麼橫向跳動一格縱向...
SSL 1456騎士旅行
time limit 1000ms memory limit 65536k 在乙個n m 格仔的棋盤上,有乙隻西洋棋的騎士在棋盤的左下角 1 1 如圖1 騎士只能根據象棋的規則進行移動,要麼橫向跳動一格縱向跳動兩格,要麼縱向跳動一格橫向跳動兩格。例如,n 4,m 3 時,若騎士在格仔 2 1 如圖2...
騎士旅行 BFS
description 在乙個n m 格仔的棋盤上,有乙隻西洋棋的騎士在棋盤的左下角 1 1 如圖1 騎士只能根據象棋的規則進行移動,要麼橫向跳動一格縱向跳動兩格,要麼縱向跳動一格橫向跳動兩格。例如,n 4,m 3 時,若騎士在格仔 2 1 如圖2 則騎士只能移入下面格仔 1 3 3 3 或 4 2...