下落

［问题描述］
在直角坐标系上，有一个小球开始从坐标(x,y) x>0,y>0 处直线下落，每一秒钟一个单位距离，一直到X轴为止。然而，它可能在下落过程中碰到一些障碍物。障碍物可以看成是一些平行于X轴的水平线段，如果小球的Y坐标和障碍物的Y坐标相等，而X坐标在障碍物的两个端点X坐标之间（包括两个端点），这样小球就会延时5秒然后从障碍物的右端继续下落。
现给出小球的初始坐标 (x,y) ，以及每个障碍物的数据（三个整数 y x1 x2，分别表示这个障碍物的Y坐标，左、右端点的X坐标），编程求小球要几称钟才能到达X轴上。
［输入文件：fall.in］
第一行有两个整数x y表示小球初始坐标，1<=x,y<=1000。第二行有一个整数n(n<100),表示有n个障碍物。
下面有n行，每行三个整数（都在1到999之间），分别表示一个障碍物的数据(y x1 x2)，其中x1<=x2。障碍物的高度都不相同。
［输出文件：fall.out］
只一个整数，小球下落到X轴的秒数。

[题解]

暴力！

[代码]

var  xx,yy,n,ans:longint;  y,x1,x2:array [0..101] of longint;procedure init;var  i:longint;begin  readln(xx,yy);  readln(n);  for i:=1 to n do    readln(y[i],x1[i],x2[i]);  ans:=yy;end;procedure qsort(l,r:longint);var  i,j,mid,t:longint;begin  if l>r then exit;  i:=l; j:=r;  mid:=y[(l+r) div 2];  repeat    while y[i]>mid do inc(i);    while y[j]<mid do dec(j);    if i<=j then      begin        t:=y[i]; y[i]:=y[j]; y[j]:=t;        t:=x1[i]; x1[i]:=x1[j]; x1[j]:=t;        t:=x2[i]; x2[i]:=x2[j]; x2[j]:=t;        inc(i); dec(j);      end;  until i>j;  qsort(i,r);  qsort(l,j);end;procedure main;var  i:longint;begin  for i:=1 to n do    if (yy>=y[i]) and (x1[i]<=xx) and (xx<=x2[i]) then      begin        inc(ans,5);        xx:=x2[i];      end;  write(ans);end;begin  assign(input,'fall.in');  assign(output,'fall.out');  reset(input);  rewrite(output);  init;  qsort(1,n);  main;  close(input);  close(output);end.