编译通过...

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms

又忘了删调试语句，2次AC......

可以写到uses math 吗

另外真没整体看问题，外角和就是360度，根本不用一个个求弧度

const maxn=10000;

var a:array[1..maxn,1..2] of real;

r,l:real;

n,i:longint;

function d(i,j:longint):real;

begin

d:=sqrt((a-a[j,1])*(a-a[j,1])+(a-a[j,2])*(a-a[j,2]));

end;

begin

readln(n,r); l:=0;

for i:=1 to n do

readln(a,a);

for i:=1 to n-1 do

l:=l+d(i,i+1);

l:=l+d(1,n)+2*pi*r;

writeln(l:0:2);

end.

这个题好诡异……实在不知道自己哪里错了啊……

编译通过...

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

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

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

　├ 错误行输出 36.8...

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

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

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

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

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

const filename='p1007';

pi=3.1415926;

var

n,i,j:longint;

r,x,y,x1,y1,x2,y2,ans:real;

begin

assign(input,filename+'.in');reset(input);

assign(output,filename+'.out');rewrite(output);

readln(n,r);ans:=0;

readln(x1,y1);x2:=x1;y2:=y1;

for i:=2 to n do

begin

read(x,y);

ans:=ans+sqrt(sqr(x-x1)+sqr(y-y1));

x1:=x;y1:=y;

end;

ans:=ans+sqrt(sqr(x-x2)+sqr(y-y2))+2*pi*r;

writeln(ans:2:2);

close(input);close(output);

end.

N年以前我注册了一个号，做这个题明明一次AC啊

事实证明RP不好什么都A不了。。。

有没有大牛帮忙看看。。。。。

编译通过...

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

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

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

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

　├ 错误行输出

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

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

　├ 错误行输出

明白自己错在这里。

sqrt(sqr(a[i+1 mod n] -a[i])+sqr(b[i+1 mod n] -b[i]));

bs楼下

题解：

往下看

往下看

往下看

往下看

往下看

往下看

往下看

没有了

我的题解：

p1007-->简单的长绳子。

http://www.oibh.org/uhome/space.php?uid=85346&do=blog&id=768

program p1007;

const p=3.141592653589793238462643383297;

var r,d,a,b,x,y,x1,y1:real;

　　n,i:integer;

begin

readln(n,r);

d:=2*p*r;

readln(x1,y1);

a:=x1; b:=y1;

for i:=2 to n do

　　begin

　　 readln(x,y);

　　 d:=d+sqrt(sqr(x-a)+sqr(y-b));

　　 a:=x; b:=y;

　　end;

d:=d+sqrt((a-x1)+(b-y1));

write(d:0:2);

end.

我是菜油....

编译通过...

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms

program p1007;

const p=3.141592653589793238462643383297;

var r,d,a,b,x,y,x1,y1:real;

n,i:integer;

begin

readln(n,r);

d:=2*p*r;

readln(x1,y1);

a:=x1; b:=y1;

for i:=2 to n do

begin

readln(x,y);

d:=d+sqrt(sqr(x-a)+sqr(y-b));

a:=x; b:=y;

end;

d:=d+sqrt((a-x1)+(b-y1));

write(d:0:2);

end.

我和下面的一位仁兄一样，咋就不对呢？愁！

double c = 2*3.14159265358979323846*r;

double result = c;

for ( int i = 1; i < n; i++)

result += playfun ( data[i].x , data[i].y , data.x , data.y );

result += playfun ( data[1].x , data[1].y , data[n].x , data[n].y );

p

double playfun(double a,double b,double x,double y)

{

return sqrt((a-b)*(a-b)+(x-y)*(x-y));

}

为什么33分？这是我的关键代码

编译通过...

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms

我口渴了...

编译通过...

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms

水题^ ^

编译通过...

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms

Program P1007;

Var n,i:longint;

r,sum:real;

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

Begin

readln(n,r);

for i:=1 to n do readln(x[i],y[i]);

sum:=2*r*3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211055596446229489549303819644288109756659334461284756482337867831652712019091456485669234603486104543266482133936072602491412737245870066063155881748815209209628292540917153643678925903600113305305488204665213841469519415116094330572703657595919530921861173819326117931051185480744623799627495673518857527248912279381830119491298336733624406566430860213949463952247371907021798609437027705392171762931767523846748184676694051320005681271452635608277857713427577896091736371787214684409012249534301465495853710507922796892589235420199561121290219608640344181598136297747713099605187072113499999983729780499510597317328160963185950244594553469083026425223082533446850352619311881710100031378387528865875332083814206171776691473035982534904287554687311595628638823537875937519577818577805321712268066130019278766111959092164201989;

for i:=2 to n do sum:=sum+sqrt(sqr(x[i]-x)+sqr(y[i]-y));

sum:=sum+sqrt(sqr(x[n]-x[1])+sqr(y[n]-y[1]));

writeln(sum:0:2);

End.

如对本题有疑问可以参看我的题解：http://xujieqi.blog.hexun.com/35722312_d.html

var

n,i,j,k:integer;

sum,r:real;

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

begin

read(n,r);

for i:=1 to n do

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

x[n+1]:=x[1];

y[n+1]:=y[1];

sum:=2*pi*r;

for i:=1 to n do

sum:=sum+sqrt(sqr(x[i]-x)+sqr(y[i]-y));

write(sum:0:2);

end.

var z:array[1..10001,1..2]of real;

r,s:real;

i,n:integer;

begin

readln(n,r);

for i:=1 to n do

read(z,z);

z[n+1,1]:=z[1,1];

z[n+1,2]:=z[1,2];

s:=r*3.1415926*2;

for i:=1 to n do

s:=s+sqrt(sqr(z-z)+sqr(z-z));

writeln(s:0:2);

end.

编译通过...

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

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

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

　├ 错误行输出

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

　├ 错误行输出

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

　├ 错误行输出

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

　├ 错误行输出

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

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

哪里出了问题？

呵~~ 终于又搞出来一题

请用鼠标拖动选择下列文字即可显示题解

var n,i:integer; r,l:real; x,y:array [1..100] of real;begin readln(n,r); for i:=1 to n do readln(x[i],y[i]); l:=2*pi*r+sqrt(sqr(x[1]-x[n])+sqr(y[1]-y[n])); for i:=1 to n-1 do l:=l+sqrt(sqr(x[i]-x)+sqr(y[i]-y)); writeln(l:0:2);end.