【最短路】奇怪的电梯

题目:奇怪的电梯 rqnoj161

题目描述

呵呵，有一天ssxyh做了一个梦，梦见了一种很奇怪的电梯。大楼的每一层楼都可以停电梯，而且第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

样例输入

5 1 5 3 3 1 2 5

样例输出

3

 

读入数据后扫描一次就可以建图，然后dijkstra或者spfa都可以

Pascal Code

program lift;

const maxn=200+10;

var
  n,a,b:longint;
  map:array[0..maxn,0..maxn] of longint;
  dist:array[0..maxn] of longint;
  h:array[0..maxn] of boolean;

procedure init;
begin
  assign(input,'rqnoj161.in');
  assign(output,'rqnoj161.out');
  reset(input);
  rewrite(output);
end;
procedure outit;
begin
  close(input);
  close(output);
  halt;
end;

procedure readdata;
var
  i,k:longint;
begin
  fillchar(map,sizeof(map),$7);
  read(n,a,b);
  for i:=1 to n do
  begin
    map[i,i]:=0;
    read(k);
    if k=0 then continue;
    if i+k<=n then map[i,i+k]:=1;
    if i-k>0 then map[i,i-k]:=1;
  end;
end;

procedure main;
var
  i,j,k,min:longint;
begin
  fillchar(dist,sizeof(dist),$7);
  fillchar(h,sizeof(h),0);
  dist[a]:=0;
  
  for i:=1 to n do
  begin
    k:=0;min:=maxlongint;
    for j:=1 to n do
    begin
      if (not h[j])and(dist[j]<min) then
      begin
        min:=dist[j];
        k:=j;
      end;
    end;
    
    h[k]:=true;
    
    for j:=1 to n do
    begin
      if (not h[j])and(dist[j]>dist[k]+map[k,j]) then
        dist[j]:=dist[k]+map[k,j];
    end;
  end;
  
  if dist[b]=$07070707 then writeln(-1) else writeln(dist[b]);
end;

begin
  init;
  readdata;
  main;
  outit;
end.

 

 

转载于:https://www.cnblogs.com/oijzh/archive/2012/08/18/2645764.html