var

x,y:array[1..100]of real;

n,i:integer;

r,m,l:real;

begin

readln(n,r);

for i:=1 to n do

begin

read(x[i]);readln(y[i]);

end;

for i:=1 to n-1 do

begin

m:=sqrt(ROUND(abs((x[i]-x)*(x[i]-x)+(y[i]-y)*(y[i]-y))));

l:=m+l;

end;m:=sqrt(round(abs((x[n]-x[1])*(x[n]-x[1])+(y[n]-y[1])*(y[n]-y[1]))));

l:=l+m;

m:=pi*2*r;

l:=l+m;

writeln(l:0:2);

end.

这个是第一次写的.,

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 06：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：83 有效耗时：0ms

var

x,y:array[1..100]of real;

n,i:integer;

r,m,l:real;

begin

readln(n,r);

for i:=1 to n do

begin

read(x[i]);readln(y[i]);

end;

for i:=1 to n-1 do

begin

m:=sqrt(ROUND(abs((x[i]-x)*(x[i]-x)+(y[i]-y)*(y[i]-y))));

l:=m+l;

end;

if n2 then begin

m:=sqrt(round(abs((x[n]-x[1])*(x[n]-x[1])+(y[n]-y[1])*(y[n]-y[1]))));

l:=l+m;

m:=pi*2*r;

l:=l+m;

end;

writeln(l:0:2);

end.

这个的测评才67分.,本来第一次写的没有AC.,觉得不严谨.,就改了改.,结果分数反而更低了.,郁闷

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 06：答案正确... 0ms

---|---|---|---|---|---|---|---|-

希望能指出错误,.谢谢.,