Free Pascal《校门外的树》

显示全部楼层 · 2010-8-7 10:21:23

某校大门外长度为L的马路上有一排树，每两棵相邻的树之间的间隔都是一米，我们可以把马路看成一个数轴，马路的一端在零的位置，另一端在L的位置；数轴上的每个整数点，即0，1，2……L，都种有一棵树。
由于马路上有一些区域要用来修地铁，这些区域用他们在数轴上的起始点和终止点表示。已知任意区域的起始点和终止点的坐标都是整数，区域之间可能有重合的部分。现在要把这些区域中的树（包括区域端点处的两棵树)移走。
输入的第一行有两个整数L（1int main(){
FILE *fp1,*fp2;
int L,m;
int num[10001];//用一个数组表示这条公路上对应点的状态，考虑为什么长度不是10000
int i,j,Nontrees;
int s1,e1;
if((fp1=fope

千问 · 2010-8-7 10:21:23

vartree:array[0..10000] of boolean;i,j,l,m,a,b,s:longint;beginreadln(l,m);for i:=0 to l do tree:=true; //初始化全部的树都还在for i:=1 to m do begin
readln(a

千问 · 2010-8-7 10:21:23

vari,n,k,l,x,y:longint;s,e:array[0..10000] of longint;beginreadln(n,k);for i:=1 to k do begin
readln(x,y);
inc(s[x]);inc(e[y]);end;l:=0;k:=0;