...

火烧赤壁(vijos某次模拟赛题目noip2004校门口外的树加强版)略高于noip普及组难度

 

火烧赤壁某次模拟赛题目校门口外的树加强版)略高于普及组难度

描述

曹操平定北方以后,公元年,率领大军南下,进攻刘表。他的人马还没有到荆州,刘表已经病死。他的儿子刘琮听军声势浩大,吓破了胆,先派人求降了。

孙权任命周瑜为都督,拨给他三万水军,叫他同刘备协力抵抗曹操。

隆冬的十一月,天气突然回暖,刮起了东南风。

没想到东吴船队离开北岸大约二里距离,前面十条大船突然同时起火。火借风势,风助火威。十条火船,好比十条火龙一样,闯进曹军水寨。那里的船舰,都挤在一起,又躲不开,很快地都烧起来。一眨眼工夫,已经烧成一片火海。

曹操气急败坏的把你找来,要你钻入火海把连环线上着火的船只的长度统计出来!

输入格式

第一行:

以后行,每行两个数:表示连环线上着火船只的起始位置和终点

输出格式

输出着火船只的总长度

样例输入

样例输出

注释

如果是一个点则看作没有长度

 

    我们可以把这些线段的开端和结束算出来就可以算出线段的长度.我们可以先排序,按a[i]的升序排序.这样就可以保证开头有规律,对于当前的开头和结尾,(下一个的开头肯定>=当前),下一个的开头<=当前的结尾,则是一个区间.否则就是新的一个区间.当是同一个区间是,改变现在的结尾值,如果不是同一个区间,则ans:=ans+结尾-开头.(这样可以保证以后不会有相同的区间,请自己思考``)

ac程序

var a,b:array[0..20001] of longint;
n,m,i,j,k,s1,s2,sum:longint;
procedure qsort(l,r:longint);
var i,j,k,x:longint;
begin
 i:=l; j:=r; x:=a[(l+r) div 2];
 repeat
  while a[i]<x do inc(i);
  while a[j]>x do dec(j);
  if i<=j then
   begin
    k:=a[i]; a[i]:=a[j]; a[j]:=k;
    k:=b[i]; b[i]:=b[j]; b[j]:=k;
    inc(i); dec(j);
   end;
 until i>j;
 if i<r then qsort(i,r);
 if l<j then qsort(l,j);
end;
begin
 assign(input,'p.in'); assign(output,'p.out');
 reset(input); rewrite(output);
 readln(n);
 for i:=1 to n do
  readln(a[i],b[i]);
 qsort(1,n);
 s1:=a[1]; s2:=b[1];
 for j:=2 to n do
  begin
   if a[j]<=s2 then
    if b[j]>s2 then
     s2:=b[j];
   if a[j]>s2 then
    begin
     sum:=sum+s2-s1;
     s1:=a[j]; s2:=b[j];
    end;
  end;
 sum:=sum+s2-s1;
 writeln(sum);
 close(input); close(output);
end.



阅读更多
文章标签: output input div
个人分类: 离散化 tyvj
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭