回 帖 发 新 帖 刷新版面

主题:帮我解题!《校门外的树》

第十一届全国青少年奥林匹克信息学联赛复赛普及组试题

校门外的树
(tree.pas/c/cpp)

【问题描述】

某校大门外长度为L的马路上有一排树,每两棵相邻的树之间的间隔都是1米。我们可以把马路看成一个数轴,马路的一端在数轴0的位置,另一端在L的位置;数轴上的每个整数点,即0,1,2,……,L,都种有一棵树。
由于马路上有一些区域要用来建地铁。这些区域用它们在数轴上的起始点和终止点表示。已知任一区域的起始点和终止点的坐标都是整数,区域之间可能有重合的部分。现在要把这些区域中的树(包括区域端点处的两棵树)移走。你的任务是计算将这些树都移走后,马路上还有多少棵树。

【输入文件】

输入文件tree.in的第一行有两个整数L(1 <= L <= 10000)和 M(1 <= M <= 100),L代表马路的长度,M代表区域的数目,L和M之间用一个空格隔开。接下来的M行每行包含两个不同的整数,用一个空格隔开,表示一个区域的起始点和终止点的坐标。

【输出文件】

输出文件tree.out包括一行,这一行只包含一个整数,表示马路上剩余的树的数目。

【样例输入】

500 3
150 300
100 200
470 471

【样例输出】

298

【数据规模】

对于20%的数据,区域之间没有重合的部分;
对于其它的数据,区域之间有重合的情况。

回复列表 (共1个回复)

沙发

var
  t           : array[0..10000] of boolean;
  i,j,a,b,l,m : integer;

begin
  assign(input,'tree.in'); reset(input);
  assign(output,'tree.out'); rewrite(output);
  readln(l,m);
  fillchar(t,sizeof(t),true);
  for i := 1 to m do begin
    readln(a,b);
    if a > b then begin
      j := a; a := b; b := j;
    end;
    if a < 0 then a := 0;
    if b > 10000 then b := 10000;
    for j := a to b do t[j] := false;
  end;
  j := 0;
  for i := 0 to l do
    if t[i] then j := j+1;
  write(j);
  close(input); close(output);
end.

我来回复

您尚未登录,请登录后再回复。点此登录或注册