城墙(sandcas.pas/cpp)

题目描述：

(File IO): input:sandcas.in output:sandcas.out

　　FJ居住的城堡有N个城墙(1<=N<=25,000)，编号为1到N，每个城墙的高度为M_i(1<=M_i<=100,000)，他想把城墙的高度按照某种顺序变成B_1,B_2,….B_N（1<=B_i<=100,000），由于工作量比较大，FJ雇佣了一些牛来帮忙提高或降低墙的高度，当然要付工资，提高一单位高度需要花费X(1<=X<=100)，降低一单位高度需要花费Y(1<=Y<=100)。
　　FJ想用最少的钱来完成这项任务，请你帮助计算，保证答案在longint范围内。

Input

　　第1行：3个空格隔开的整数N,X和Y
　　第2到N+1行：第i+1行包含两个空格隔开的整数表示M_i和B_i

Output

　　输出一个整数表示最少花费。

Sample Input

3 6 5
3 1
1 2
1 2

Sample Output

11

Data Constraint

Hint

【样例说明】
　　FJ把原来的高度3，1，1依次变为2，2，1。
【数据说明】
　　40%的数据N<=9
　　60%的数据N<=18

思路：
从小到大排序，一位对一位，就可以了。
pascal：

var a,b,c:array[0..25000] of longint;
n,i,j,l,x,y,ans,tot:longint;
function min(x,y:longint):longint;
begin
    if x<y then exit(x) else exit(y);
end;
procedure qsort(l,r:longint);
var i,j,mid:longint;
begin
    i:=l;
    j:=r;
    mid:=c[(i+j) div 2];
    while i<=j do
    begin
        while c[i]>mid do inc(i);
        while c[j]<mid do dec(j);
        if i<=j then
        begin
            c[0]:=c[i];
            c[i]:=c[j];
            c[j]:=c[0];
            inc(i);
            dec(j);
        end;
    end;
    if i<r then qsort(i,r);
    if l<j then qsort(l,j);
end;
begin
    assign(input,'sandcas.in');reset(input);
    assign(output,'sandcas.out');rewrite(output);

    readln(n,x,y);
    for i:=1 to n do
    readln(a[i],b[i]);
    for i:=1 to n do
    //read(b[i]);
    c:=a;
    qsort(1,n);
    a:=c;
    c:=b;
    qsort(1,n);
    b:=c;
    for i:=1 to n do
    begin
        if a[i]>b[i] then inc(ans,(a[i]-b[i])*y);
        if a[i]<b[i] then inc(ans,(b[i]-a[i])*x);
    end;

    writeln(ans);

    close(input);close(output);
end.