UC知道PASCAL 急！急！！！
来源：百度知道 编辑：UC知道 时间：2024/06/06 07:38:31
背景 Background
平面上有N个圆柱形的大钉子，半径都为R,所有钉子组成一个凸多边形。
现在你要用一条绳子把这些钉子围起来，绳子直径忽略不计。
描述 Description
求出绳子的长度
输入格式 Input Format
第1行两个数：整数N(1<=N<=100)和实数R。
接下来N行按逆时针顺序给出N个钉子中心的坐标
坐标的绝对值不超过100。
输出格式 Output Format
一个数，绳子的长度，精确到小数点后2位。
平面上有N个圆柱形的大钉子，半径都为R,所有钉子组成一个凸多边形。
现在你要用一条绳子把这些钉子围起来，绳子直径忽略不计。
描述 Description
求出绳子的长度
输入格式 Input Format
第1行两个数：整数N(1<=N<=100)和实数R。
接下来N行按逆时针顺序给出N个钉子中心的坐标
坐标的绝对值不超过100。
输出格式 Output Format
一个数，绳子的长度，精确到小数点后2位。
var
n:integer;
r:real;
i,j:integer;
b:array[1..100,1..2] of real;
c:extended;
begin
readln(n,r);
for i:=1 to n do
readln(b[i,1],b[i,2]);
c:=0;
for i:=1 to n-1 do
c:=c+sqrt(sqr(b[i+1,1]-b[i,1])+sqr(b[i+1,2]-b[i,2]));
c:=c+sqrt(sqr(b[1,1]-b[n,1])+sqr(b[1,2]-b[n,2]))+3.1416*r*r;
write(c:0:2);
end.
题目不是很难
如果程序看不懂嘛 可以MM我
同意王勃老兄的看法