Milking Cows 挤牛奶

Milking Cows 挤牛奶

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

1200 时刻到 1500 时刻).

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

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

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

PROGRAM NAME: milk2

INPUT FORMAT

Line 1: 一个整数 N.

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

SAMPLE INPUT (file milk2.in)

3

300 1000

700 1200

1500 2100

OUTPUT FORMAT

一行,两个整数,即题目所要求的两个答案.

SAMPLE OUTPUT (file milk2.out)

900 300

=========================================================================

初始状态的处理...

==========================================================================

{
ID:jie19952
PROG:milk2
LANG:PASCAL
}

type
re=record
s,e:longint;
end;
var
n:longint;
ti:array[1..5000]of re;
procedure init;
begin
assign(input,'milk2.in');
assign(output,'milk2.out');
reset(input); rewrite(output);
end;

procedure terminate;
begin
close(input); close(output);
halt;
end;

procedure qsort(s,t:longint);
var
tem:re;
i,j,x,x1:longint;
begin
i:=s; j:=t; x:=ti[(s+t) shr 1].s; x1:=ti[(s+t) shr 1].e;
repeat
while (x<ti[j].s)or((x=ti[j].s)and(x1<ti[j].e)) do dec(j);
while (x>ti[i].s)or((x=ti[i].s)and(x1>ti[i].e)) do inc(i);
if i<=j then
begin
tem:=ti[i];
ti[i]:=ti[j];
ti[j]:=tem;
inc(i); dec(j);
end;
until i>j;
if i<t then qsort(i,t);
if s<j then qsort(s,j);
end;

procedure main;
var
i:longint;
last,first:longint;
ans1,ans2:longint;
begin
readln(n);
ans1:=0; ans2:=0;
for i:=1 to n do
begin
readln(ti[i].s,ti[i].e);
if ans1<ti[i].e-ti[i].s then
ans1:=ti[i].e-ti[i].s;
end;

qsort(1,n);
first:=ti[1].s;
last:=ti[1].e;

for i:=2 to n do
begin
if ti[i].s<=last then
begin
if last<ti[i].e then
last:=ti[i].e;
end
else begin
if ans1<last-first then
ans1:=last-first;
if ans2<ti[i].s-last then
ans2:=ti[i].s-last;
first:=ti[i].s;
last:=ti[i].e;
end;
end;
writeln(ans1,' ',ans2);
end;

begin
init;
main;
terminate;
end.