奇怪的电梯解题报告（广度优先搜索）

奇怪的电梯

Time Limit:10000MS  Memory Limit:65536K
Total Submit:56 Accepted:33 
Case Time Limit:1000MS

Description

　　呵呵，有一天我做了一个梦，梦见了一种很奇怪的电梯。大楼的每一层楼都可以停电梯，而且第i层楼(1<=i<=N)上有一个数字Ki(0<=Ki<=N)。电梯只有四个按钮：开，关，上，下。上下的层数等于当前楼层上的那个数字。当然，如果不能满足要求，相应的按钮就会失灵。例如：3 3 1 2 5代表了Ki(K1=3,K2=3,……)，从一楼开始。在一楼，按“上”可以到4楼，按“下”是不起作用的，因为没有-2楼。那么，从A楼到B楼至少要按几次按钮呢？

Input

输入文件共有二行，第一行为三个用空格隔开的正整数，表示N,A,B(1≤N≤200, 1≤A,B≤N)，第二行为N个用空格隔开的正整数，表示Ki。

Output

输出文件仅一行，即最少按键次数,若无法到达，则输出-1。

Sample Input

5 1 5
3 3 1 2 5

Sample Output

3

程序：

const
  maxn=1000;


var
  father,state,a,f:array[1..maxn] of longint;
  n,a1,b,ans:longint;


function check(x:longint):boolean;//判断是否合格（含有判重）
  begin
    if (x>0) and (x<=n) and (f[x]=0) then exit(true);
    check:=false;
end;


procedure dg(x:longint);//计数
  begin
    if x=0 then exit;
    dg(father[x]);
    inc(ans);
end;


procedure init;//读入
  var
    i:longint;
  begin
    readln(n,a1,b);
    for i:=1 to n do
      read(a[i]);
    f[a1]:=1;
    ans:=0;
end;


procedure bfs;//广搜
  var
    h,t:longint;
  begin
    h:=0;
    t:=1;
    state[1]:=a1;
    father[1]:=0;
    repeat
      inc(h);
      if check(state[h]+a[state[h]]) then
        begin
          inc(t);
          state[t]:=state[h]+a[state[h]];
          father[t]:=h;
          f[state[t]]:=1;
          if state[t]=b then
            begin
              dg(t);
              break;
            end;
        end;
      if check(state[h]-a[state[h]]) then
        begin
          inc(t);
          state[t]:=state[h]-a[state[h]];
          father[t]:=h;
          f[state[t]]:=1;
          if state[t]=b then
            begin
              dg(t);
              break;
            end;
        end;
    until h>=t;
    if h>=t then writeln(-1)//输出
      else writeln(ans-1);
end;


begin
  init;
  if a1=b then writeln(0)
  else bfs;
end.

心得：

这道题我已开始做了很久，虽有一些小错误，后来再叫还有问题。原来是忘记判重，以后要记得判重。