begin
readln(n);
fori:=1tondoreadln(c[i].x,c[i].y);
fori:=1tondo
forj:=1tondo
d[i,j]:=sqrt(sqr(c[i].x-c[j].x)+sqr(c[i].y-c[j].y));
p[1]:=0;
fori:=2tondo___(4)___
fori:=1ton-1do
begin
min:=1e10;
forj:=1tondo
if___(5)___then
begin
min:=d[p[j],j];
___(6)___
end;
a:=a+d[p[k],k];
p[k]:=0;
forj:=1tondo
if___(7)___thenp[j]:=k;
end;
writeln(a:0:2);
end.
4.p[i]:=1;
5.(p[j]>0)and(d[p[j],j])6.k:=j;
57 |
|
