pascal(13)

来源：百度知道 编辑：UC知道 时间：2024/05/27 18:31:54
题目:校门外的树

问题编号:13 [提交该题] [讨论该问题] [Who AC?] [有关讨论]

本题我的状态:Unlogon

题目类型 模拟
描述 某校大门外长度为L的马路上有一排树，每两棵相邻的树之间的间隔都是1米。我们可以把马路看成一个数轴，马路的一端在数轴0的位置，另一端在L的位置；数轴上的每个整数点，即0，1，2，……，L，都种有一棵树。
由于马路上有一些区域要用来建地铁。这些区域用它们在数轴上的起始点和终止点表示。 已知任一区域的起始点和终止点的坐标都是整数，区域之间可能有重合的部分。现在要把这些区域中的树（包括区域端点处的两棵树）移走。你的任务是计算将这些树都移走后，马路上还有多少棵树。
输入格式 输入的第一行有两个整数：L（1 <= L <= 10000）和 M（1 <= M <= 100），L代表马路的长度，M代表区域的数目，L和M之间用一个空格隔开。接下来的M行每行包含两个不同的整数，用一个空格隔开，表示一个区域的起始点和终止点的坐标。
输出格式 输出包括一行，这一行只包含一个整数，表示马路上剩余的树的数目。
输入文件 直接输入即可
输出文件 直接输出即可 注意,不要在最后输出空行或空格!
样例输入
500 3
150 300
100 200
470 471
样例输出
298

用一个数组记录树的情况
0表示拔掉了 1表示没拔
var
n,i,j,k,l,a,b:integer;
s:array[0..10000] of 0..1;
begin
readln(n,k);
fillchar(s,sizeof(s),1);{把数组所有元素赋值为1}
for i:=1 to k do
begin
readln(a,b);
for j:=a to b do
s[j]:=0;{开始拔树}
end;
for i:=0 to n do
l:=l+s[i];{计算剩下的树的棵数}
writeln(l);
end.