题目描述 一年一度的“跳石头”比赛又要开始了! 这项比赛将在一条笔直的河道中进行,河道中分布着一些巨大岩石。组委会已经选 择好了两块岩石作为比赛起点和终点。在起点和终点之间,有 N 块岩石(不含起点和终 点的岩石)。在比赛过程中,选手们将从起点出发,每一步跳向相邻的岩石,直至到达 终点。 为了提高比赛难度,组委会计划移走一些岩石,使得选手们在比赛过程中的最短跳 跃距离尽可能长。由于预算限制,组委会至多从起点和终点之间移走 M 块岩石(不能 移走起点和终点的岩石)。 输入 输入文件名为 stone.in。 输入文件第一行包含三个整数 L,N,M,分别表示起点到终点的距离,起点和终 点之间的岩石数,以及组委会至多移走的岩石数。 接下来 N 行,每行一个整数,第 i 行的整数 Di(0 < Di < L)表示第 i 块岩石与 起点的距离。这些岩石按与起点距离从小到大的顺序给出,且不会有两个岩石出现在同 一个位置。 输出 输出文件名为 stone.out。 输出文件只包含一个整数,即最短跳跃距离的最大值。 样例输入 25 5 2 2 11 14 17 21 样例输出 4
var len,n,m,i,ans:longint;
a:array[1..50000]of longint;
function erfen(l,r:longint):longint;
var mid,k,move,i:longint;
begin
if l>r then exit(l);
mid:=(l+r)div 2;
k:=0;
move:=0;
for i:=1 to n+1 do
if a[i]-k<mid then inc(move) else k:=a[i];
if move<=m then exit(erfen(mid+1,r)) else exit(erfen(l,mid-1));
end;
begin
readln(len,n,m);
for i:=1 to n do readln(a[i]);
a[n+1]:=len;
ans:=erfen(1,len)-1;
writeln(ans);
end.
一个问题能否二分，找到其单调性即可。
