题目描述
房间里放着n块奶酪。一只小老鼠要把它们都吃掉,问至少要跑多少距离?老鼠一开始在(0,0)点处。
输入输出格式
输入格式:
第一行一个数n (n<=15)
接下来每行2个实数,表示第i块奶酪的坐标。
两点之间的距离公式=sqrt((x1-x2)(x1-x2)+(y1-y2)(y1-y2))
输出格式:
一个数,表示要跑的最少距离,保留2位小数。
输入输出样例
输入样例#1:
4
1 1
1 -1
-1 1
-1 -1
输出样例#1:
7.41
分析:
很明显的暴力啦,n才那么点。
注意:读入的坐标可以为浮点数,否则只有80分。。
代码:
var
x,y:array[0..101] of extended;
f:array[0..101] of boolean;
max:real;
n,i:longint;
procedure ss(t:longint;sum:extended;x1,y1:real);
var i:longint;
begin
if sum>max then exit;
if t=n then max:=sum else
for i:=1 to n do
if not f[i] then
begin
f[i]:=true;
ss(t+1,sum+sqrt(sqr(x1-x[i])+sqr(y1-y[i])),x[i],y[i]);
f[i]:=false;
end;
end;
begin
readln(n);
for i:=1 to n do
readln(x[i],y[i]);
max:=maxlongint;
ss(0,0,0,0);
writeln(max:0:2);
end.