作业帮 > 综合 > 作业

绕钉子的绳子 pascal!

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/20 04:12:04
绕钉子的绳子 pascal!
背景 Background
平面上有N个圆柱形的大钉子,半径都为R,所有钉子组成一个凸多边形.
现在你要用一条绳子把这些钉子围起来,绳子直径忽略不计.
描述 Description
求出绳子的长度
输入格式 Input Format
第1行两个数:整数N(1
绕钉子的绳子 pascal!
楼主修改后的简洁多了..看懂了.
应该这里要改.
if i=n then
l:=l+sqrt(sqr(a[i]-a[i+1])+sqr(b[i]-b[i+1]));
改正如下.
if i=n then
l:=l+sqrt(sqr(a[i]-a[1])+sqr(b[i]-b[1]));
这就能通过了..