望大牛瞧瞧

type h=record

x,y:integer；

end；

var a,b:array[1..10000]of h；

k,l,c,d,n,m,i,j,s:integer；

begin

readln(k,l,c,d)；

n:=1；

s:=0；

a[1].x:=k；

a[1].y:=l；

repeat

for i:=1 to n do

if (a[i].x=c)and(a[i].y=d) then

begin

writeln(s)；

exit；

end；

m:=0；

for i:=1 to n do

begin

inc(m)；

b[m].x:=a[i].x+1；

inc(m)；

b[m].x:=a[i].x+1；

b[m].y:=a[i].y+1；

inc(m)；

b[m].x:=a[i].x+1；

b[m].y:=a[i].y+2；

if (a[i].x>=2)and(a[i].y>=2) then

begin

inc(m)；

b[m].x:=a[i].x-2；

b[m].y:=a[i].y-2；

end；

if a[i].y>=1 then

begin

inc(m)；

b[m].x:=a[i].x+1；

b[m].y:=a[i].y-1；

end；

end；

n:=m；

for i:=1 to n do a[i]:=b[i]；

inc(s)；

until 1=0；

end.

测试结果1: 通过本测试点|有效耗时172:ms

测试结果2: 测试结果错误.错误结果为:7

正确结果应为:65

测试结果3: 测试结果错误.错误结果为:7

正确结果应为:60

测试结果4: 测试结果错误.错误结果为:7

正确结果应为:50

测试结果5: 测试结果错误.错误结果为:7

正确结果应为:87

测试结果6: 测试结果错误.错误结果为:7

正确结果应为:101

测试结果7: 测试结果错误.错误结果为:7

正确结果应为:222

测试结果8: 测试结果错误.错误结果为:7

正确结果应为:350

测试结果9: 测试结果错误.错误结果为:7

正确结果应为:127

测试结果10: 测试结果错误.错误结果为:7

正确结果应为:199