铲雪车题解

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《铲雪车题解》，欢迎阅读！

snow[Pascal]

2009-12-26 18:11:52| 分类： 解题报告 | 标签： |举报 |字号大中小 订阅



程序文件 snow.PAS/C/CPP 可执行文件 snow.EXE 输入文件 snow.IN 输出文件 snow.OUT

时间限制 1S

问题描述：

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

去铲掉所有道路上的雪呢？

输入：

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

进速度为50 km/h。

保证：铲雪车从起点一定可以到达任何街道。

输出：

铲掉所有街道上的雪并且返回出发点的最短时间，精确到分种。

输入样例：

0 0

0 0 10000 10000 5000 -10000 5000 10000 5000 10000 10000 10000

输出样例：


3:55

注解：3小时55分钟

var

x1,x2,y1,y2,sum:real;

ans:longint;

begin

assign(input,'snow.in');reset(input); assign(output,'snow.out');rewrite(output);

read(x1,y1); while not seekeof do

begin

read(x1,y1,x2,y2);

sum:=sum+sqrt(sqr(x1-x2)+sqr(y1-y2));

end;

ans:=round(sum*3/500); write(ans div 60,':'); if ans mod 60<10 then write(0);

writeln(ans mod 60);

close(input); close(output);

end.

本文来源：https://www.wddqxz.cn/d5a65526168884868662d61a.html