编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

排序+扫描

此题原理同P1165

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

program p1439;

type rec=record

a,b:longint;

end;

var

ans:array[1..50001]of rec;

n,i,ai,bi:longint;

procedure quicksort(s,t:longint);

var i,j,x:longint;

t1:rec;

begin

i:=s;j:=t;x:=ans[i].a;

repeat

while(ans[j].a>=x)and(j>i)do dec(j);

if j>i then begin t1:=ans[i];ans[i]:=ans[j];ans[j]:=t1;end;

while(ans[i].a

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

一次秒杀

type

qtype=record

l,r:longint;

end;

var

f,d:array[1..50000] of qtype;

n,i,j:longint;

procedure qsort(head,tail:longint);

var

i,j:longint;

x:qtype;

begin

i:=head;

j:=tail;

x:=f[head];

while i

栈的运用，

信春哥，刷水题

var s:array[1..50000] of record

st,fi:longint;

end;

a,max,n,sta,fin,c:longint;

b:boolean;

procedure h(o,t:longint);

var tmp:longint;

begin

tmp:=s[o].st;

s[o].st:=s[t].st;

s[t].st:=tmp;

tmp:=s[o].fi;

s[o].fi:=s[t].fi;

s[t].fi:=tmp;

end;

procedure q(l,r:longint);

var il,ir,m,tmp:longint;

begin

il:=l;

ir:=r;

m:=s[(l+r)div 2].st;

while il

我爱水题！！！！！！

memset --> O(n) !!!

use that in place of for

It mother-fucker

哎,天天都是数据范围的错~~~~

Program P1439;

var p:array[1..1]of boolean;

var x,y,n,i,j,q,l:longint;

begin

fillchar(p,sizeof(p),false);

readln(n);

l:=0;

for i:=1 to n do

begin

readln(x,y);

if y>l then l:=y;

fillchar(p[x],(y-x+1),true);

end;

q:=0;

for i:=1 to l do

begin

if (p[i])and(q=0) then q:=i;

if (not(p[i]))and(q0) then

begin

writeln(q,' ',i);

q:=0;

end;

end;

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：运行超时...

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

一开始直接 1to n-1 /i+1 to n 排序。。。劣质就是劣质

---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|--

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

————————————————————————————————————

嘿嘿。快排就是0ms！

囧啊。。

题目描述极不清，理解花了我20分钟。

嘛，本题的方法就是排序然后扫一遍。

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

qsort+逐个判断

水题不扫 何以扫天下～～

先是看错题目，好难啊。然后少了条语句，30分。怪不得我的ac率才38%

#include

#define INF 10000000

#define maxn 50000

long n,a[maxn+10],b[maxn+10],stack[maxn*2+10],top;

void quicksort(long *data,long low,long high)

{

long l=low,r=high,x=data[low];

while(l

LIS?

var n,a,b,i,t,p:longint; num:array[1..1000000] of longint; s:array[1..1000000] of boolean;begin readln(n); for i:=1 to n do begin read(a,b); inc(num[a]); dec(num[b ]); if a=b then s[a]:=true; end; for i:=1 to 1000000 do begin t:=p; inc(p,num[i]); if (t=0) and (p0) then write(i,' ') else if (t0) and (p=0) then writeln(i) else if (t=0) and (p=0) and (s[i]) then writeln(i,' ',i); end;end.