状态: Unaccepted

测评机： Xeond[6]

得分： 60分

提交日期： 2008-7-16 20:47:00

有效耗时： 93毫秒

测试结果1: 测试结果正确

测试结果2: 测试结果错误.错误结果为:3

正确结果应为:0

测试结果3: 测试结果错误.错误结果为:675

正确结果应为:638

测试结果4: 测试结果正确

测试结果5: 测试结果正确

测试结果6: 测试结果正确

测试结果7: 测试结果错误.错误结果为:233

正确结果应为:193

测试结果8: 测试结果正确

测试结果9: 测试结果正确

测试结果10: 测试结果错误.错误结果为:666

正确结果应为:589

program rq225；

var

a,b:array[0..100] of longint；

f:array[0..100,0..100] of longint；

n,i,j,k,t,m,tot,x,y,min:longint；

begin

readln(n,k)；

for i:=1 to n do

readln(a[i],b[i])；

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

a[0]:=a[i]； a[i]:=a[j]； a[j]:=a[0]；

b[0]:=b[i]； b[i]:=b[j]； b[j]:=b[0]；

end；

filldword(f,sizeof(f) div 4,maxlongint)；

for i:=1 to n do f[i,1]:=0；

for m:=2 to n-k do

for i:=1 to n-(m-1) do

for j:=i+1 to n-(m-1)+1 do

if abs(b[j]-b[i])+f[j,m-1]<f[i,m] then

f[i,m]:= abs(b[j]-b[i])+f[j,m-1]；

writeln(f[1,n-k])；

end.