奇怪的电梯

奇怪的电梯

(
lift.pas )
 
要求：此题用floyd和dijstra算法分别完成。
 
问题描述：
呵呵，有一天我做了一个梦，梦见了一种很奇怪的电梯。大楼的每一层楼都可以停电梯，而且第i层楼(1<=i<=N)上有一个数字Ki(0<=Ki<=N)。电梯只有四个按钮：开，关，上，下。上下的层数等于当前楼层上的那个数字。当然，如果不能满足要求，相应的按钮就会失灵。例如：3 3 1 2 5代表了Ki(K1=3,K2=3,……)，从一楼开始。在一楼，按“上”可以到4楼，按“下”是不起作用的，因为没有-2楼。那么，从A楼到B楼至少要按几次按钮呢？
 
输入格式：lift.in
输入文件共有二行，第一行为三个用空格隔开的正整数，表示N,A,B(1≤N≤200,
1≤A,B≤N)，第二行为N个用空格隔开的正整数，表示Ki。
 
输出格式：lift.out
输出文件仅一行，即最少按键次数,若无法到达，则输出-1。
 
样例

lift.in	lift.out
5 1 5 3 3 1 2 5	3

 
 
欧教发题的时候就说明了是最短路问题，所以没走弯路直接AC。。。
 

const
  maxn=200;
var
  n,s,t:longint;
  a,dist:array[1..maxn] of longint;
  d:array[0..1000] of longint;
  h:array[0..maxn] of boolean;
  map:array[1..maxn,1..maxn] of longint;
procedure init;
var
  i:longint;
begin
  assign(input,'lift.in');
  assign(output,'lift.out');
  reset(input);
  rewrite(output);
  fillchar(map,sizeof(map),0);
  readln(n,s,t);
  for i:=1 to n do
  begin
    read(a[i]);
    if i+a[i]<=n then map[i,i+a[i]]:=1;
    if i-a[i]>0 then map[i,i-a[i]]:=1;
  end;
end;
procedure spfa;
var
  now,i,head,tail:longint;
begin
  fillchar(h,sizeof(h),false);
  fillchar(dist,sizeof(dist),$7);
  dist[s]:=0;
  head:=0;tail:=0;
  inc(tail);
  d[tail]:=s;
  h[s]:=true;
  while head<>tail do
  begin
    inc(head);
    now:=d[head];
    h[head]:=false;
    for i:=1 to n do
    begin
      if (map[now,i]<>0) and (dist[now]+map[now,i]<dist[i])
      then
      begin
        dist[i]:=dist[now]+map[now,i];
        if h[i]=false then
        begin
          inc(tail);
          d[tail]:=i;
          h[i]:=true;
        end;
      end;
    end;
  end;
end;
procedure main;
begin
  spfa;
  if dist[t]>n then writeln('-1') else writeln(dist[t]);
end;
procedure outit;
begin
  close(input);
  close(output);
end;
begin
  init;
  main;
  outit;
end.
 
 
题完全没有难度，只是为了练习下SPFA，所以写的比较复杂。简单DIJSTRA和FLOYD也可以轻松AC