铲雪车_SSL2334_欧拉回路

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


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


【约定】
 x,y为整数且下面最多有一百行


【样例输入】
0 0
3
0 0 10000 10000
5000 -10000 5000 10000
5000 10000 10000 10000


【样例输出】
 3:55


【样例说明】


【解题思路】
对于每一条边都有两个方向可走,即每一个单独的点都至少有偶数条边相连,也就是有0个奇点,可从任意一点出发并不重复地遍历每一条路,这个图是欧拉图。统计每一条路的长度除速度20千米每小时即时答案。注意答案以分钟为单位。

【源代码】/pas

var
sum:real;
n,i:longint;
ans,fenz:int64;
x1,y1,x2,y2:int64;
begin
  read(x1,y1);
  while not eof do
  begin
    readln(x1,y1,x2,y2);
    sum:=sum+sqrt(sqr(x1-x2)+sqr(y1-y2));
  end;
  sum:=sum*2/1000;
  sum:=sum/20;
  fenz:=round((sum-trunc(sum))*60);
  ans:=trunc(sum);
  write(ans,':');
  if fenz<10 then write(0);
  writeln(fenz);
end.