soldiersvar a,b,c,sum:longint; v,r:array[0..10000]of longint; procedure ss(l,r:longi

1490. 士兵 
(File IO): input:soldiers.in output:soldiers.out

时间限制:  1000 ms  空间限制:  262144 KB  具体限制  

Goto ProblemSet

题目描述

在Gridland国家，有N个处于不同位置的士兵。该国上的地方都用两个坐标（X，Y）来表示。士兵能进行一次移动，每个士兵都可向上、向下、向左、或向右移动一个单位长，这样他就能把自己的X或Y改变1或-1。

士兵们想进入一个水平线，彼此靠近，这样他们的最后位置就是（X，Y）、（X+1，Y），…，（X+N，Y））。水平线上的士兵的最后顺序以及整数X和Y，都是任意的。

现在目标是求如此配置士兵的最少移动数。

两个或两个以上的士兵在同一时间不处于同一位置。

输入

     输入文件soldiers. in 的第一行含有一个整数N，1  <=   N <= 10000,N 为士兵的数量。输入文件以后的N行应含有士兵的初始位置，对于每一个i, 1 <=  i  <=  N, 输入文件的第I+1行含有两个用空格分开的整数x[i],y[i]，他们表示第I个士兵的坐标，-10000 <= x[i],y[i]  <= 10000.

输出

     输出文件soldiers. out 仅有一行，它的值为使士兵移动到水平线彼此相邻的最小移动次数。

样例输入

5
1 2
2 2
1 3
3 -2
3 3

样例输出

8

数据范围限制

var
        a,b,c,sum:longint;
        v,r:array[0..10000]of longint;
procedure ss(l,r:longint);
var
        i,j,mid:longint;
begin
        i:=l;
        j:=r;
        mid:=v[(i+j) div 2];
        while i<j do
        begin
                while (v[i]<mid) do inc(i);
                while (v[j]>mid) do dec(j);
                if i<=j then
                begin
                        v[0]:=v[i];
                        v[i]:=v[j];
                        v[j]:=v[0];
                        inc(i);
                        dec(j);
                end;
        end;
        if j>l then ss(l,j);
        if i<r then ss(i,r);
end;
begin
        assign(input,'soldiers.in');reset(input);
        assign(output,'soldiers.out');rewrite(output);
        readln(a);
        for b:=1 to a do
        begin
                readln(r[b],v[b]);
        end;
        ss(1,a);
        for b:=1 to a do
        begin
                sum:=sum+abs(v[b]-v[(1+a)div 2]);
        end;
        v:=r;
        ss(1,a);
        for b:=1 to a do
        begin
                v[b]:=v[b]-b+1;
        end;
        ss(1,a);
        for b:=1 to a do
        begin
                sum:=sum+abs(v[b]-v[(1+a) div 2]);
        end;
        writeln(sum);
        close(input);
        close(output);
end.