剑鱼行动(俩种方法)！！！

最新推荐文章于 2019-12-21 11:04:43 发布

SSL_zeng_yu

最新推荐文章于 2019-12-21 11:04:43 发布

阅读量868

点赞数

CC 4.0 BY-SA版权

分类专栏： pascal 图论

本文链接：https://blog.youkuaiyun.com/SSL_zeng_yu/article/details/68947231

pascal 图论专栏收录该内容

15 篇文章

订阅专栏

本文介绍了一个经典的图论问题——寻找一组点之间的最小生成树，并给出了两种实现方法。通过计算点之间的距离并使用不同的算法策略，最终求得最小生成树的总边长。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

剑鱼行动

Time Limit:10000MS Memory Limit:65536K
Total Submit:93 Accepted:79
Case Time Limit:1000MS

Description

给出N个点的坐标，对它们建立一个最小生成树，代价就是连接它们的路径的长度，现要求总长度最小。N的值在100以内，坐标值在[-10000,10000].结果保留二位小数

Input

5 ---------------5个点
0 0 ---------------5个点点的坐标
0 1
1 1
1 0
0.5 0.5

Output

2.83

Sample Input

Sample Output

Source

zju

这一题和最小生成树一样。但输入变一下，输出保留两位小数、

var

n,i,j,k,t:longint;
min,ans:real;
x,y,v:array[0..101]of real;
a:array[0..101,0..101]of real;
begin
readln(n);
for i:=1 to n do
begin
readln(x[i],y[i]);
for j:=1 to i-1 do
begin
a[i,j]:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
a[j,i]:=a[i,j];
end;
end;
fillchar(v,sizeof(v),#0);
v[1]:=1;
for i:=1 to n-1 do
begin
min:=maxlongint;
for j:=1 to n do
if v[j]=1 then
for k:=1 to n do
if v[k]=0 then
if (a[j,k]<min)and(a[j,k]<>0) then
begin
min:=a[j,k];
t:=k;
end;
if min<>maxlongint then
begin
ans:=ans+min;
v[t]:=1;
end;
end;
write(ans:0:2);

end.

方法2：（本方法从集合变成广搜（擦不多），就是把每一个点关联起来，每枚举一个点就更新（同化）父节点）；

var
n,i,j,k,q,p,t:longint;
tj,min:real;
x,y:array[0..200]of real;
f:array[0..200]of longint;
a:array[0..200,0..200]of real;
begin
readln(n);
for i:=1 to n do
readln(x[i],y[i]);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
end;
end;
tj:=0;
for i:=1 to n do
f[i]:=i;
for k:=1 to n-1 do
begin
min:=maxlongint;
for i:=1 to n do
for j:=1 to n do
if (f[i]<>f[j])and(a[i,j]<min)and(a[i,j]<>0) then
begin
min:=a[i,j];
p:=j;
q:=i;
end;
tj:=tj+min;
t:=f[p];
for i:=1 to n do
if f[i]=t then f[i]:=f[q];
end;
write(tj:0:2);
end.