laimotbaimoi:mavatot

http://vn.spoj.pl/status/KANDP/
bai nay nghi la dung BFS nhung tai sao chi duoc 15 diem
const
nmax=2000;
hx:array[1..8] of integer=(1,1,-1,-1,2,2,-2,-2);
hy:array[1..8] of integer=(2,-2,2,-1,1,-2,1,-1);
var
mx,my,tx,ty,tg,f,l,u,v,h,z,t: longint;
qx,qy:array[1..2*(nmax+1)] of longint;
a:array[-nmax..nmax,-nmax..nmax] of longint;
begin
readln(mx,my);
readln(tx,ty);
readln(tg);
if tg=0 then
tx:=tx+1;
fillchar(a,sizeof(a),0);
f:=1;
l:=1;
qx[f]:=mx;
qy[l]:=my;
a[mx,my]:=1;
if mx=tx then
if my=ty then
a[mx,my]:=0;
repeat
u:=qx[f];
v:=qy[f];
f:=f+1;
for h:=1 to 8 do
begin
z:= u+hx[h];
t:=v+hy[h];
if (abs(u+hx[h]+1)<=nmax) and(abs(u+hy[h])<=nmax) then
begin
z:=z+1;
if a[z,t]=0 then
begin
inc(l);
qx[l]:=z;
qy[l]:=t;
a[z,t]:=a[u,v]+1;
end;
end;
end;
if a[tx,ty]<>0 then break;
until f>l;
if a[tx,ty]<>0 then
begin
writeln('YES');
writeln(a[tx,ty]-1);
end
else
writeln('NO');
end.

Bài này anh chưa làm, nhưng lần sao em up code lên thì để trong cái TAG để nó canh lề cho đẹp mọt tí dc kô, nhìn ngang phè cũng lười đọc code.
Mà bài này hình như trong serie của VNOI Marathon 08, nếu thế thì trên vnoi.info có cho down test cases, lên đó lấy về test xem sao:D

tim mai kho khan ghe chang khac gi mo kimday be

Bài này là bài HAOI 2008 KANDP. Duyệt BFS mãi cũng chỉ được 25 điểm. Được 15 điểm nghĩa là đúng hết các trường hợp NO rồi, chỉ cần xem lại phần YES thôi

Bài này trên forum vnoi.info có đang đáp án các bài trong kỳ thi HAOI 2008.