系统正在处理您的请求 请勿刷新此页……

您有新消息

请点击 这里 进入消息中心

4 / 58 (7%) 　 首页 站务 公告　|　题库/分类/原题 记录 比赛 团队 交流 讨论　|　U-Space 搜索 换肤　|　登出

公告 News >> 　　New! Vijos月赛调整 (2008-9-16 23:34:56) 　　New! CSC WorkGroup 邀请赛III 已完成评测 (2008-9-15 1:07:35) 　　New! 热烈庆祝Vijos总评测记录突破80万条 (2008-9-2 6:33:35) 　　New! Vijos 交流板块开放 (2008-8-30 22:29:55) 　　New! 关于近期Vijos DDNS解析故障的说明 (2008-8-26 17:29:15)

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

记录号 Flag 得分 记录信息 环境 评测机 程序提交时间

R845535 Unaccepted 0 From 张厚－

　 P1291 FPC Lora Temper 2008-9-18 20:35:31

From EZ_dla

苹果摘陶陶 CoVH小组系列赛2 - Noip2006普及组模拟赛 系列

编译通过...

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

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

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

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

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

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

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

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

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

├ 测试数据 10：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

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

Unaccepted 有效得分：0 有效耗时：0ms

var

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

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

procedure qsort(l,r:longint);

var

i,j,k,q:longint;

begin

i:=l;

j:=r;

k:=a[(l+r) div 2];

repeat

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

if ij;

if l

题设丑陋

#include

using namespace std;

int data[20000] = {0};

void quick_sort(int data[], int low, int high){

int i, j, pivot;

if (low < high){

pivot=data[low];

i=low;

j=high;

while(isz[a];

for (a=1;a>data[a];

quick_sort(data,1,m);

for (a=1;a=1;b--){

if ((sz[a]>=data)&&(!(data==0))){

jsq--;

data=0;

break;

}

}

}

cout

记录号 Flag 得分 记录信息 环境 评测机 程序提交时间

R827629 Accepted 100 From 695202454－

　 P1291 FPC Vivid Puppy 2008-9-13 8:39:23

From EZ_dla

苹果摘陶陶 CoVH小组系列赛2 - Noip2006普及组模拟赛 系列

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

哈哈,有过了........................................................................................

大哥大姐，们 以后多给点代码

我认为是这样……陶陶高度为零证明他熟了，掉下来了……既然掉下来了还用摘吗？直接放上车运走……题目说每个苹果摘一个陶陶，没说每个苹果捡了几个陶陶……-_-b

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

不用排序，直接模拟即可

无聊的时候做无聊的题

题目中说了苹果大牛把陶陶挂在树上

当高度为0时显然陶陶不在树上

Boring and BS

编译通过...

├ 测试数据 01：答案错误...程序输出比正确答案长

├ 测试数据 02：答案错误...程序输出比正确答案长

├ 测试数据 03：答案错误...程序输出比正确答案长

├ 测试数据 04：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 05：答案错误...程序输出比正确答案长

├ 测试数据 06：答案错误...程序输出比正确答案长

├ 测试数据 07：答案错误...程序输出比正确答案长

├ 测试数据 08：答案错误...程序输出比正确答案长

├ 测试数据 09：答案错误...程序输出比正确答案长

├ 测试数据 10：答案错误...程序输出比正确答案长

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

Unaccepted 有效得分：0 有效耗时：0ms

神牛些..

这是咋回事哦..

双星啦!!!

var

n,m,i,j,max,k,sum:integer;

apple,taotao:array[1..2000] of integer;

a:array[1..2000] of boolean;

begin

readln(m,n);

for j:=1 to m do

readln(apple[j]);

for i:=1 to n do

readln(taotao[i]);

sum:=0;

for i:=1 to n do

a[i]:=true;

for j:=1 to m do

begin

max:=0;

k:=0;

for i:=1 to n do

begin

if (taotao[i]

var

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

a,b:array[1..10000]of longint;

procedure pai(l,r:longint);

var i,j,mid,k:longint;

begin

mid:=a[(l+r) div 2];

i:=l;

j:=r;

repeat

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

if ij;

if j>l then pai(l,j);

if il then pal(l,j);

if i=b[k]

then begin

dec(m);

break;

end;

dec(k);

until k=1;

end;

write(m);

end.

为什么错了？

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

搞错个两个for循环~~~~~~

害了我AC了5次`\

其实是这样简单的：

　　 排序+比较··

program p1291;

type

numbertype=array[1..2000]of integer;

var

a,b:numbertype;

m,n,i,t,s,c:integer;

procedure quick(l,r:integer;a:numbertype);

var i,j,x,y:integer;

begin

i:=l;j:=r;

x:=a[(l+r)div 2];

repeat

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

while a[j]

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

水题好啊！

一次AC！

桶排序，再加一个计数就行了！

如果高度是0，就不考虑！

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

弱弱的水题

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

陶陶的高度为0居然不能摘，晕！！！！！！

题又没说明???

谢谢楼下的大牛发现0的数据了

不过这题也太。。。

Qsort+贪心

我今天写了两次Qsort