洛谷 P1433 吃奶酪

题目描述

房间里放着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.