{

ID:p.tiany1

PROG:1445

LANG:PASCAL

}

program p1445;

type

arr=record

he,t:longint;

end;

var

a:array[0..100000] of arr;

b,c:array[0..100000] of longint;

n,m:longint;

procedure qsort1(s,l:longint);

var

i,j,x:longint;

begin

i:=s;j:=l;x:=b[(i+j) div 2];

repeat

while b[i]x do dec(j);

if ij;

if j>s then qsort1(s,j);

if ix do inc(i);

while a[j].hes then qsort(s,j);

if i0 do

begin

j:=0;

while j

无比困惑：flush可是标准IO库操作啊，居然给我来个非法字符……和system一样

#include

using namespace std;

void BubbleSort(int *pData,int Count)

{

int iTemp;

for(int i(0);i=i;j--){

if(pData[j]>n>>m;

const size_t size(1000);

int app={},tt={},sum={};

size_t iapp(n),itt(m);

for(int ia(0);ia!=n;++ia){

int num_a(0);

cin>>num_a;

app[ia]=num_a;

}

BubbleSort(app,n);

for(int it(0);it!=m;++it){

int num_t(0);

cin>>num_t;

tt[it]=num_t;

}

BubbleSort(tt,m);

//为sum循环赋值，此处还当斟酌

for(int is(n-1);is>=0;){

int is_t(is);

for(int is2(m-1);is2>=0&&is_t>=0;--is2){

sum[is2]+=app[is_t];

--is_t;

}

is-=m;

}

for(int index(0);index!=m;++index){

cout

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

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

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

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

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

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

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

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

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

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

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

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

快排

qsort*2

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

赤裸裸的快排，暴力模拟……

郁闷！数组开小了！看错数据范围了！！！好囧！！！！！

准备参加noip的朋友们一定要审题仔细哟！但也不要开大了哟！

呵呵！

用俩快排 过

呃....郁闷，数组忘记要开到0了...于是很郁闷的uc了...呃，我的ac率.....

www.2008dream.cn.vc我的博客，欢迎大家光临！！

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

___|\__|\__|\__|\__|\__|\__|\__|\__|\__|\__|\__|\__|__

AC,好爽啊,一次AC,又搞定了一条傻X题了...

var n,m,k,j,i:longint;

t:int64;

apple,taotao,a,c:array [1..100000] of int64;

procedure kp(l,r:longint);

var i,j,x,t:longint;

begin

i:=l;j:=r;x:=apple[(l+r) div 2];

repeat

while apple[i]>x do inc(i);

while x>apple[j] do dec(j);

if ij;

if itaotao[j] do dec(j);

if ij;

if i

program p1445;

var a,b,c:array[1..100000] of int64;

　　 e:array[1..100000] of longint;

　　 i,j,k,l,m,n,r:longint;

procedure qsort1(x,y:longint);

var s,l,r:longint;

　　 g,t:int64;

begin

t:=b[(x+y) div 2];l:=x;r:=y;

repeat

　　while b[l]>t do inc(l);

　　while b[r]

经鉴定,此题密度近似于1

program p1445;

var a,b,c:array[1..100000] of int64;

e:array[1..100000] of longint;

i,j,k,l,m,n,r:longint;

procedure qsort1(x,y:longint);

var s,l,r:longint;

g,t:int64;

begin

t:=b[(x+y) div 2];l:=x;r:=y;

repeat

while b[l]>t do inc(l);

while b[r]

So...............I'm a foolish man...............

const maxn=110000;

var tt,p,ap,a,ans:array[1..maxn]of longint;

i,j,k,t,n,m:longint;

procedure qsorttt(s,t:longint);

var i,j,x,px:longint;

begin

i:=s;j:=t;x:=a[i];px:=p[i];

while ii)do inc(i);

if ii)do dec(j);

if i

囧

三星了。。。

开始弄的从大到小排序。。。WA了。。。。

var

n,m,i,j:longint;

num,a,w,b:array[1..100000] of longint;

procedure qs1(l,r:longint);

var

i,j,x,y:longint;

begin

i:=l;j:=r;x:=w[(l+r) div 2];

repeat

while w[i]>x do inc(i);

while w[j]

狂晕，前驱函数写反了...WA了4次！！

60!!!

与楼上同庆！！！！

120题，庆祝下！

两个快排+计数

Program P1445;

type ay=array[0..100000] of longint;

var a,b,c,num:ay;

k,i,j,n,m:longint;

procedure qsort1(t,s:longint);

var i,j,mid,temp:longint;

begin

i:=t; j:=s; mid:=a[(i+j) div 2];

repeat

while a[i]mid do dec(j);

if ij;

if i

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

一样的程序第二次…………

无语了……