一大堆的福利之【USACO题库】 Milking Cows挤牛奶

题目描述

三个农民每天清晨5点起床，然后去牛棚给3头牛挤奶。第一个农民在300时刻(从5点开始计时，秒为单位)给他的牛挤奶，一直到1000时刻。第二个农民在700时刻开始，在 1200时刻结束。第三个农民在1500时刻开始2100时刻结束。期间最长的至少有一个农民在挤奶的连续时间为900秒(从300时刻到1200时刻)，而最长的无人挤奶的连续时间(从挤奶开始一直到挤奶结束)为300秒(从1200时刻到1500时刻)。

你的任务是编一个程序，读入一个有N个农民(1 <= N <= 5000)挤N头牛的工作时间列表，计算以下两点(均以秒为单位):

• 
  
• 最长至少有一人在挤奶的时间段。
  

• 
  
• 最长的无人挤奶的时间段。
  

输入

Line 1:	一个整数N。
Lines 2..N+1:	每行两个小于1000000的非负整数，表示一个农民的开始时刻与结束时刻。

输出

一行，两个整数，即题目所要求的两个答案。

样例输入

3
300 1000
700 1200
1500 2100

样例输出

900 300

uses math;
var
        i,n,s1,s2,s,t:longint;
        b,e:array[1..5000] of longint;
procedure kp(l,r:longint);
var
        i,j,mid,t:longint;
begin
        i:=l; j:=r; mid:=b[l];
        repeat
                while b[i]<mid do inc(i);
                while b[j]>mid do dec(j);
                if i<=j then begin t:=b[i]; b[i]:=b[j]; b[j]:=t;
                t:=e[i]; e[i]:=e[j]; e[j]:=t; inc(i); dec(j); end;
        until i>j;
        if l<j then kp(l,j); if i<r then kp(i,r);
end;
begin
        readln(n);
        for i:=1 to n do
                readln(b[i],e[i]);
        kp(1,n); s:=b[1]; t:=e[1]; s1:=t-s;
        for i:=2 to n do
        begin if b[i]<=t then t:=max(t,e[i])
        else begin s:=b[i]; t:=e[i]; end; s1:=max(s1,t-s); end;
        t:=e[1];
        for i:=2 to n do
        begin if b[i]-t>s2 then s2:=b[i]-t; t:=max(t,e[i]); end;
        writeln(s1,' ',s2);
end.