题目:Car的旅行路线
问题编号:216
又到暑假了，住在城市A的Car想和朋友一起去城市B旅游。她知道每个城市都有四个飞机场，分别位于一个矩形的四个顶点上，同一个城市中两个机场之间有一条笔直的高速铁路，第I个城市中高速铁路了的单位里程价格为Ti，任意两个不同城市的机场之间均有航线，所有航线单位里程的价格均为t。
图例
机场
高速铁路
飞机航线
注意：图中并没有
标出所有的铁路与航线。
那么Car应如何安排到城市B的路线才能尽可能的节省花费呢?她发现这并不是一个简单的问题，于是她来向你请教。
任务
找出一条从城市A到B的旅游路线，出发和到达城市中的机场可以任意选取，要求总的花费最少。
输出：到屏幕(输出最小费用，小数点后保留2位。)
第一行为一个正整数n(0<=n<=10)，表示有n组测试数据。
每组的第一行有四个正整数s，t，A，B。
S(0<S<=100)表示城市的个数，t表示飞机单位里程的价格，A，B分别为城市A，B的序号，(1<=A，B<=S)。
接下来有S行，其中第I行均有7个正整数xi1，yi1，xi2，yi2，xi3，yi3，Ti，这当中的(xi1，yi1)，(xi2，yi2)，(xi3，yi3)分别是第I个城市中任意三个机场的坐标，T I为第I个城市高速铁路单位里程的价格。
共有n行，每行一个数据对应测试数据。
program Project1;
type ww=record
xx,yy:longint;
end;
var
map:array[1..400,1..100] of extended;
xxx,yyy:array[1..400]of longint;
s,t,a,b,x1,y1,x2,y2,x3,y3,tt,n,i,j,k,x,y:longint;
min:extended;
function dian(x1,y1,x2,y2,x3,y3:longint):ww;{判断直角 并输出第四个点坐标}
begin
if (sqr(x1-x2)+sqr(y1-y2)+sqr(x2-x3)+sqr(y2-y3)=sqr(x1-x3)+sqr(y1-y3))
then begin dian.xx:=x1+x3-x2;dian.yy:=y1+y3-y2; exit; end;
if (sqr(x1-x3)+sqr(y1-y3)+sqr(x2-x3)+sqr(y2-y3)=sqr(x1-x3)+sqr(y1-y3))
then begin dian.xx:=x1+x2-x3;dian.yy:=y1+y2-y3; exit; end;
if (sqr(x2-x1)+sqr(y2-y1)+sqr(x3-x1)+sqr(y3-y1)=sqr(x3-x2)+sqr(y3-y2))
then begin dian.xx:=x2+x3-x1;dian.yy:=y2+y3-y1;exit; end;
end;
begin
readln(n);
readln(s,t,a,b);
for i:=1 to 4*s do
for j:=1 to 4*s do
map[i,j]:=9999;
for i:=1 to s do{构造图，城市路径}
begin
readln(x1,y1,x2,y2,x3,y3,tt);
x:=dian(x1,y1,x2,y2,x3,y3).xx;y:=dian(x1,y1,x2,y2,x3,y3).yy;
map[4*(i-1)+1,4*(i-1)+2]:=sqrt(sqr(x1-x2)+sqr(y1-y2))*tt;
map[4*(i-1)+2,4*(i-1)+1]:=sqrt(sqr(x1-x2)+sqr(y1-y2))*tt;
map[4*(i-1)+1,4*(i-1)+3]:=sqrt(sqr(x1-x3)+sqr(y1-y3))*tt;
map[4*(i-1)+3,4*(i-1)+1]:=sqrt(sqr(x1-x3)+sqr(y1-y3))*tt;
map[4*(i-1)+1,4*(i-1)+4]:=sqrt(sqr(x1-x)+sqr(y1-y))*tt;
map[4*(i-1)+4,4*(i-1)+1]:=sqrt(sqr(x1-x)+sqr(y1-y))*tt;
map[4*(i-1)+2,4*(i-1)+3]:=sqrt(sqr(x2-x3)+sqr(y2-y3))*tt;
map[4*(i-1)+3,4*(i-1)+2]:=sqrt(sqr(x2-x3)+sqr(y2-y3))*tt;
map[4*(i-1)+2,4*(i-1)+4]:=sqrt(sqr(x2-x)+sqr(y2-y))*tt;
map[4*(i-1)+4,4*(i-1)+2]:=sqrt(sqr(x2-x)+sqr(y2-y))*tt;
map[4*(i-1)+3,4*(i-1)+4]:=sqrt(sqr(x3-x)+sqr(y3-y))*tt;
map[4*(i-1)+4,4*(i-1)+3]:=sqrt(sqr(x3-x)+sqr(y3-y))*tt;
xxx[4*(i-1)+1]:=x1;{存坐标}
xxx[4*(i-1)+2]:=x2;
xxx[4*(i-1)+3]:=x3;
xxx[4*(i-1)+4]:=x;
yyy[4*(i-1)+1]:=y1;
yyy[4*(i-1)+2]:=y2;
yyy[4*(i-1)+3]:=y3;
yyy[4*(i-1)+4]:=y;
end;
for i:=1 to 4*s do{构造每个点的路径}
for j:=1 to 4*s do
if map[i,j]=9999 then map[i,j]:=sqrt(sqr(xxx[i]-xxx[j])+sqr(yyy[i]-yyy[j]))*t;
for k:=1 to 4*s do{Floyd}（Dijkstra没写）
for i:=1 to 4*s do
for j:=1 to 4*s do
if map[i,j]>map[i,k]+map[k,j] then map[i,j]:=map[i,k]+map[k,j];
for i:=1 to 4 do
for j:=1 to 4 do
if min>map[(a-1)*4+i,(b-1)*4+j] then min:=map[(a-1)*4+i,(b-1)*4+j];（16种情况输出最小的)
writeln(min:0:2);
end.
为什么我写的总是 输出0挖 要这么修改 才能 不输出0 ??