大厅安排(normal)

题意

有一个演讲大厅需要GEORGE管理，演讲者们事先定好了需要演讲的起始时间和中止时间。GEORGE想让演讲大厅得到最大可能的使用。我们要接受一些预定而拒绝其他的预定，目标自然是使演讲者使用大厅的时间最长。为方便起见，假设在某一时刻一个演讲结束，另一个演讲就可以立即开始。
计算演讲大厅最大可能的使用时间。

分析

f[i]:=tj+a[i,2]-a[i,1];{ (f[i]>=tj)and(a[i,1]>=a[j,2]) }

var
n,i,j,tj:longint;
f:array[0..101]of longint;
a:array[0..101,0..2]of longint;
procedure kp(l,r:longint);
var
i,j,mid:longint;
begin
    if l>=r then exit;
    i:=l;j:=r;mid:=a[(l+r)div 2,2];
    repeat
         while a[i,2]<mid do inc(i);
         while a[j,2]>mid do dec(j);
         if i<=j then
         begin
             a[i,0]:=a[i,1];a[i,1]:=a[j,1];a[j,1]:=a[i,0];
             a[i,0]:=a[i,2];a[i,2]:=a[j,2];a[j,2]:=a[i,0];
             inc(i);dec(j);
         end;
    until i>j;
    kp(l,j);
    kp(i,r);
end;
begin
    readln(n);
    for i:=1 to n do
    readln(a[i,1],a[i,2]);
    kp(1,n);
    for i:=1 to n do
    begin
        tj:=0;
        for j:=1 to i-1 do
        if (f[j]>=tj)and(a[i,1]>=a[j,2]) then tj:=f[j];
        f[i]:=tj+a[i,2]-a[i,1];
    end;
    tj:=0;
    for i:=1 to n do
    if f[i]>tj then tj:=f[i];
    write(tj);
end.