jzoj1276 护花

1276. 护花 

Description

　　FJ出去砍木材去了，把N(2<=N<=100,000)头牛留在家中吃草，当他回来的时候，发现奶牛们都跑到花园里吃花去了，为了减少损失，FJ打算把牛移到牛棚中去。
　　每头牛的位置离牛棚需要Ti分钟(1<=Ti<=2,000,000)，而且在等待被移走的过程中，每分钟破坏Di(1<=Di<=100)朵花，无论多么努力FJ一次只能移动一只奶牛，移动一只奶牛到牛棚需要2×Ti分钟(来回各一次)。
　　写一个程序安排移动顺序使得损失的花最少。


Input

　　第1行输入一个整数N
　　第2到N+1行每行包含两个整数Ti和Di


Output

　　输出一个整数表示最少损失的花的数量

分析：按t[i]/d[i]从小到大排序然后按这个顺序移走就行了。

代码

const
  maxn=100000;

var
  a,b:array[0..maxn] of longint;
  c:array[0..maxn] of real;
  n,i:longint;
  ans,t:qword;

procedure qsort(l,r:longint);
var
  i,j:longint;
  k:real;
begin
  if l>=r then exit;
  i:=l;j:=r;
  k:=c[(l+r) div 2];
  repeat
    while c[i]<k do inc(i);
    while c[j]>k do dec(j);
    if i<=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];
        c[0]:=c[i];c[i]:=c[j];c[j]:=c[0];
        inc(i);dec(j);
      end;
  until i>j;
  qsort(l,j);qsort(i,r);
end;

begin
  readln(n);
  for i:=1 to n do
    begin
      readln(a[i],b[i]);
      c[i]:=a[i]/b[i];
    end;
  qsort(1,n);
  for i:=1 to n do
    begin
      inc(ans,t*b[i]);
      inc(t,a[i]*2);
    end;
  writeln(ans);
end.