UC知道青铜莲花池 编程
来源：百度知道 编辑：UC知道 时间：2024/06/25 18:40:21
【描述】Farmer John 建造了一个美丽的池塘，用于让他的牛们审美和锻炼。这个长方形的池子被分割成了 M 行和 N 列( 1 ≤ M ≤ 30 ; 1 ≤ N ≤ 30 ) 正方形格子的 。某些格子上有惊人的坚固的莲花，还有一些岩石，其余的只是美丽，纯净，湛蓝的水。
贝茜正在练习芭蕾舞，她从一个莲花跳跃到另一个莲花，当前位于一个莲花。她希望在莲花上一个一个的跳，目标是另一个给定莲花。她能跳既不入水，也不到一个岩石上。
令门外汉惊讶的是，贝茜的每次的跳跃像国际象棋中的骑士一样：横向移动M1(1 ≤M1 ≤ 30 )，纵向移动然后量M2 (1 ≤M2 ≤ 30 ;M1 ≠ M2 ) ，或纵向移动然后量M1，横向移动M2。贝茜有时可能会有多达8个选择的跳跃。
给定池塘的布局和贝茜的跳跃格式，请确定贝茜从从她的出发位置，到最终目的地，最小的跳跃次数，贝茜在给出测试数据一定可以跳到目的地。
输入：
第 1 行: 四个用空格隔开的整数: M, N, M1, M2
第 2..M + 1 行: 第 i + 1 行 有 N 个整数，表示该位置的状态: 0 为水; 1 为莲花; 2 为岩石; 3 为贝茜开始的位置; 4 为贝茜要去的目标位置。
输出
第 1 行: 一个整数，从起始点到要去的位置，贝茜最小的跳跃次数。
样例输入
4 5 1 2
1 0 1 0 1
3 0 2 0 4
0 1 2 0 0
0 0 0 1 0
样例输出
2
输入解释
贝茜从第2行第1个位置开始，她的目标在第2行最右边。几个
输出解释
贝茜聪明地跳跃到了第1行第3个位置，然后就到了目的地。
【注】要用Pascal语言
var
tot1,tot2,i,j,n,m,l,x,y,z,head,tail,now,s,max:longint;
come1,come2,next1,next2,cost1,cost2,last1,last2:array[0..100000] of longint;
f:array[0..1000] of boolean;
d,d2:array[0..1000] of longint;
q:array[0..100000] of longint;
procedure add1(a,b,c:longint);
begin
inc(tot1);
come1[tot1]:=b;
next1[tot1]:=last1[a];
last1[a]:=tot1;
cost1[tot1]:=c;
end;
procedure add2(a,b,c:longint);
begin
inc(tot2);
come2[tot2]:=b;
next2[tot2]:=last2[a];
last2[a]:=tot2;
cost2[tot2]:=c;
end;
begin
assign(input,'sparty.in');reset(input);
assign(output,'sparty.out');rewrite(output);
readln(n,m,l);
for i:=1 to m do
begin
readln(x,y,z);
add1(x,y,z);