一、动态规划（2）奇怪的电梯

奇怪的电梯

源程序名 LIFT.??? (PAS,C,CPP)

可执行文件名 LIFT.EXE

输入文件名 LIFT. IN

输出文件名 LIFT. OUT

呵呵，有一天我做了一个梦，梦见了一种很奇怪的电梯。大楼的每一层楼都可以停电梯，

而且第 i 层楼(1<=i<=N) 上有一个数字 Ki(0<=Ki<=N) 。电梯只有四个按钮：开，关，上，下。

上下的层数等于当前楼层上的那个数字。当然，如果不能满足要求，相应的按钮就会失灵。

例如： 3 3 1 2 5 代表了 Ki(K1=3,K2=3,……) ，从一楼开始。在一楼，按“上” 可以到 4

楼，按“ 下” 是不起作用的，因为没有-2 楼。那么，从 A 楼到 B 楼至少要按几次按钮呢？

输入

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

1≤A,B≤N) ，第二行为 N 个用空格隔开的正整数，表示 Ki。

输出

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

样例

LIFT.IN

5 1 5

3 3 1 2 5

LIFT.OUT

3

分析：

水题，n多种方法：dp，bfs等等

代码：

var

step,lift:array [1..200] of longint;

i,j,p,n,s,t:longint;

stop:boolean;

begin

assign(input,'lift.in');

assign(output,'lift.out');

reset(input);

rewrite(output);

readln(n,s,t);

for i:=1 to n do

begin

step[i]:=-1;

read(lift[i]);

end;

step[s]:=0;

p:=0;

stop:=true;

while (step[t]=-1) and stop do

begin

stop:=false;

for i:=1 to n do

if step[i]=p then

begin

j:=i+lift[i];

if (j<=n) and (step[j]=-1) then

begin

step[j]:=p+1;

stop:=true;

end;

j:=i-lift[i];

if (j>0) and (step[j]=-1) then

begin

step[j]:=p+1;

stop:=true;

end;

end;

inc(p);

end;

writeln(step[t]);

close(input);

close(output);

end.