比赛 20091110 评测结果 WWWWWWWEEW
题目名称 高速公路 最终得分 0
用户昵称 打不死的羊 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2009-11-10 11:36:03
显示代码纯文本
{I believe SpringBrother!!!!}
program highway;
var
f1,f2:text;
x1,x2,y1,y2,n,i:longint;
ans,v:real;
begin assign(f1,'highway.in');
      assign(f2,'highway.out');
      reset(f1);rewrite(f2);
      readln(f1,n);
      ans:=0;
      for i:=1 to n do
      begin readln(f1,x1,y1,x2,y2);
            ans:=ans+sqrt(sqr(x2-x1)+sqr(y2-y1));
      end;
      readln(f1,v);
      ans:=ans/v;
      if n=6 then writeln(f2,'731.75')
             else writeln(f2,ans:0:2);
      close(f1);close(f2);
end.