[题目来源]：NOIP2001提高组T4

[关键字]：最短路径

[题目大意]：给定平面直角若干个矩形，计算(可经过其他矩形)两个矩形任意顶点间的最短路程费用。

//============================================================================================================

[分析]：其实题目本事没有太大的难点，只需要对每两个点进行连边(其实不用连知道坐标后现求两点间距离)然后求最短路即可。关键是如何知道给定三个顶点的矩形的另一个顶点。

公式：(x1,y1)(x2,y2)(x3,y3)为三个顶点坐标，如果(x1-x2)*(x3-x1)+(y1-y2)*(y3-y1)=0则x4=x2+x3-x1 y4=y2+y3-y1。只要循环直到找到第四个点即可，具体实现可看代码。

[代码]：

View Code

program project1;

type

rec = record

x, y, c: longint;

end;

var

n, tot, costf, st, ed, tc: longint;

pos: array[0..2000] of rec;

x, y: array[1..4] of longint;

costt: array[0..200] of longint;

b: array[0..200] of boolean;

d: array[0..100] of real;

procedure init;

var

i, j, k: longint;

begin

readln(n,costf,st,ed);

for i := 1 to n do

begin

readln(x[1],y[1],x[2],y[2],x[3],y[3],costt[i]);

for j := 1 to 3 do

for k := 1 to 3 do

if j <> k then

if (x[j]-x[k])*(x[6-k-j]-x[j])+(y[j]-y[k])*(y[6-k-j]-y[j]) = 0 then

begin

x[4] := x[k]+x[6-k-j]-x[j];

y[4] := y[k]+y[6-k-j]-y[j];

end;

for j := 1 to 4 do

begin

inc(tot);

pos[tot].x := x[j];

pos[tot].y := y[j];

pos[tot].c := i;

end;

end;

//for i := 1 to tot do writeln(pos[i].x,' ',pos[i].y,' ',pos[i].c);

end;

function dis(x, y: longint):real;

begin

dis := sqrt(sqr(pos[x].x-pos[y].x)+sqr(pos[x].y-pos[y].y));

if pos[x].c = pos[y].c then

dis := dis*costt[pos[x].c]

else dis := dis*costf;

end;

function dij(st: longint):real;

var

i, j, p: longint;

min: real;

begin

fillchar(b,sizeof(b),false);

fillchar(d,sizeof(d),100);

d[st] := 0;

for i := 1 to tot do

begin

min := 1e38;

for j := 1 to tot do

if (not b[j]) and (d[j] < min) then

begin

min := d[j];

p := j;

end;

b[p] := true;

for j := 1 to tot do

if not b[j] then

if d[j] > d[p]+dis(p,j) then d[j] := d[p]+dis(p,j);

end;

dij := 1e38;

for i := 1 to tot do

begin

if pos[i].c = ed then

for j := 0 to 3 do

if d[i+j] < dij then dij := d[i+j];

if pos[i].c = ed then break;

end;

end;

procedure work;

var

i, j: longint;

min, temp: real;

begin

min := 1e38;

for i := 1 to tot do

begin

if pos[i].c = st then

for j := 0 to 3 do

begin

temp := dij(i+j);

if temp < min then min := temp;

end;

if pos[i].c = st then break;

end;

writeln(min:0:1);

end;

begin

assign(input,'d:\in.txt');reset(input);

assign(output,'d:\out.txt');rewrite(output);

readln(tc);

while tc > 0 do

begin

init;

work;

dec(tc);

end;

close(input);

close(output);

end.