ssl2334 铲雪车

Description

随着白天越来越短夜晚越来越长，我们不得不考虑铲雪问题了。整个城市所有的道路都是双车道，因为城市预算的削减，整个城市只有1辆铲雪车。铲雪车只能把它开过的地方(车道)的雪铲干净，无论哪儿有雪，铲雪车都得从停放的地方出发，游历整个城市的街道。现在的问题是：最少要花多少时间去铲掉所有道路上的雪呢？

Input

输入数据的第1行表示铲雪车的停放坐标(x,y)，x,y为整数，单位为米。下面最多有一百行，每行给出了一条街道的起点坐标和终点坐标，所有街道都是笔直的，且都是双向一个车道。铲雪车可以在任意交叉口或任何街道的末尾任意转向，包括转U型弯。铲雪车铲雪时前进速度为20千米/时，不铲雪时前进速度为50千米/时。保证：铲雪车从起点一定可以到达任何街道。

Output

对于每组数据输出铲掉所有街道上的雪并且返回出发点的最短时间，精确到分钟。

题解

每读入一条路就算出这条路的长度，并累加起来。

  sqrt(sqr(x1-x2)+sqr(y1-y2))

因为路与路之间不相交，所以左右的路走一个来回就是最短路，但要注意铲雪(20km/h)和不铲雪时（50km/h）的速度,最后计算时间，精确到分钟。

代码

  
 
 
var
  a,b:longint;
  x,x1,x2,y,y1,y2,ans:real;
procedure init;
var
  i:longint;
begin
  readln(x,y);
  while not eoln do
    begin
      readln(x1,y1,x2,y2);
      ans:=ans+sqrt(sqr(x1-x2)+sqr(y1-y2));
    end;
  ans:=ans/10000;
  a:=trunc(ans);b:=round(60*(ans-a));
  if b=60 then
    begin
      b:=0;inc(a);
    end;
  if b<10 then write(a,':0',b) else write(a,':',b);
end;
begin
  init;
end.