洛谷2301
题目描述
眼看着老师大军浩浩荡荡的向机房前进。LOI 的同学们决定动用自己的力量来保卫他们的好朋友loidc。现在每个人都要挑选自己的武器——两根木棍。一根用做远距离投掷，另一根用做近距离搏斗。每个人都想挑到最好的，但这是不可能的。但是为了让多数人满意，也为了减少大家的矛盾。cony设计了一个矛盾指数，这个指数就是每个人的不舒服指数和，不舒服指数就(L1-L2)^2，其中L1,L2分别是两根木棍的长度。
cony决定让矛盾指数最少，于是他来向你寻求帮助，希望你能告诉他矛盾指数至少有多少。
输入输出格式
输入格式：
第一行两个数m,n.
表示有n个人，m个木棍。
接下来m个数表示每个木棍(肯定有解)。
(m<=2000,n<=500)
输出格式：
一个数，最少的矛盾指数。
输入输出样例
输入样例#1：
5 2
3
1
4
5
8
输出样例#1：
5
分析：
先排序，显然组成一对的木棍必相邻才是最优的。
故得到方程
f[i,j]=min(f[i-1,j],f[i-2,j-1]+sqr(a[i]-a[i-1])) i=2..m
初值f[i,0]:=0;
代码：
program work;
var
f:array[..,..]of int64;
a:array[..]of int64;
n,i,m,j:longint; t:int64;
function min(x,y:int64):int64;
begin
if x<y then min:=x else min:=y;
end;
begin
readln(m,n);
for i:= to m do readln(a[i]);
for i:= to m- do
for j:=i+ to m do
if a[i]>a[j] then
begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
for i:= to m do
for j:= to n do f[i,j]:=maxlongint*;
f[,]:=; f[,]:=;
for i:= to m do
for j:= to min(m div ,n) do
f[i,j]:=min(f[i-,j],f[i-,j-]+sqr(a[i]-a[i-]));
writeln(f[m,n]);
end.