Const

pi=3.1415926;

Var

mark1,mark2,r,sn,re1,re2,data1,data2:real;

n,i:integer;

Begin

readln(n,r);

if n=1 then writeln(r*pi*2:0:2);

if n>1 then

begin

readln(re1,re2);

mark1:=re1;mark2:=re2;

for i:=1 to n do

begin

if i

不会告诉我，这题要勾股定理把，我还没学到呢

编译通过...

├ 测试数据 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

很弱，2分钟就编完了。

切记啊!绕在钉子上的绳长按外角和算!不是内角和!

sqrt((x1-x2)^2+(y1-y2)^2)+一个钉子周长

懒得编了

***|接下来N行按逆时针顺序给出N个钉子中心的坐标\*|

orz第一遍没看到。。。

编译通过...

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

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

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

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

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

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

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

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

多么精练

program dingzi;

const p=3.14159;

var

n,i:integer;

r:real;l:extended;

a,b:array[1..101]of real;

begin

readln(n,r);

for i:=1 to n do readln(a[i],b[i]);

for i:=1 to n-1 do

l:=l+sqrt(sqr(a-a[i])+sqr(b-b[i]));

l:=l+sqrt(sqr(a[n]-a[1])+sqr(b[n]-b[1]));

l:=l+2*p*r;

writeln(l:0:2);

end.

传说中的 人品问题吗？ 为什么SO easy 的 一题只过了 3个点？

var

i,j:integer;

n,r:integer;

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

s:real;

function sum(x1,y1,x2,y2:real):real;

begin

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

end;

begin

readln(n,r);

readln(a[1,1],a[1,2]);

s:=0;

for i:=2 to n do

begin

readln(a,a);

s:=s+sum(a,a,a,a);

end;

s:=s+sum(a[1,1],a[1,2],a[n,1],a[n,2]);

s:=s+r*2*3.1415926;

write(s:2:2);

end.

很猥琐......竟然二次才AC，第四个数据就一个点，注意呀！

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

编译通过...

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

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

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

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

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

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

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

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

两点间距离+一个钉子的周长=AC

/*

pronum: 1007

*/

#include

#include

#include

#define pi 3.141592653

int main()

{

double x[200];

double y[200];

FILE *fin,*fout;

fin=fopen("p1007.in","r");

fout=fopen("p1007.out","w");

int n;

int i,j;

double r;

double temp=0.00;

fscanf(fin,"%d%lf",&n,&r);

for(i=0;i

LSB好猥琐！！！！

Program P1007;

Var

ans:real;

i,n:longint;

a,b,aa,bb,r,sa,sb:real;

begin

readln(n,r);

for i:=1 to n do

begin

readln(a,b);

if i1 then

ans:=ans+sqrt(sqr(a-aa)+sqr(b-bb))

else

begin sa:=a;sb:=b;end;

aa:=a;bb:=b;

end;

ans:=ans+sqrt(sqr(sa-a)+sqr(sb-b));

ans:=ans+2*3.1415926*r;

writeln(ans:0:3);

end.

这个太简单了。。。。。。。。。。。。。。

program p1007;

const pai=3.1415926;

var

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

s,tmp,r:real;

i:integer;

n:integer;

begin

readln(n,r);

readln(a[1,1],a[1,2]);

s:=0;

for i:=2 to n do

begin

readln(a,a);

tmp:=abs(a-a)*abs(a-a)+abs(a-a)*abs(a-a);

s:=s+sqrt(tmp);

end;

tmp:=abs(a[1,1]-a[n,1])*abs(a[1,1]-a[n,1])+abs(a[1,2]-a[n,2])*abs(a[1,2]-a[n,2]);

s:=s+sqrt(tmp);

s:=s+2*pai*r;

write(s:2:2);

end.

编译通过...

├ 测试数据 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

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

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

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

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

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

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

不是所有钉子组成一个凸多边形吗？

还能n=1，数据不符合题意也不合逻辑

编译通过...

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

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

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

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

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

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

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

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

楼上的大概n=1的时候会错......

……很奇怪，第三个数据竟然wa了？

var

n,i:integer;

r,a,b,c,d,e,f,sum:real;

begin

readln(n,r) ;

sum:=0;

readln(a,b);

c:=a;d:=b;

for i:=2 to n do

begin

readln(e,f);

sum:=sum+sqrt((c-e)*(c-e)+(d-f)*(d-f));

c:=e;d:=f;

end;

sum:=sum+sqrt((e-a)*(e-a)+(f-b)*(f-b))+2*r*3.1415;

writeln(sum:0:2);

end.

哪里错了？？？就wa了一个~

超精简代码。

var

x0,y0,xp,xq,yp,yq,r,s,result:single;

n,a:integer;

begin

readln(n,r);

readln(x0,y0);

xq:=x0;

yq:=y0;

result:=0;

for a:=1 to n-1 do

begin

readln(xp,yp);

result:=result+sqrt(sqr(xp-xq)+sqr(yp-yq));

xq:=xp;

yq:=yp;

end;

result:=result+sqrt(sqr(x0-xq)+sqr(y0-yq))+2*r*3.1416;

write(result:2:2)

end.

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

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

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

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

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

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

气死我了，少了个分号。害我提交了N次