214 条题解
-
0
IVORY LV 4 @ 2008-09-14 10:26:13
水啊...又差点淹死...
-
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 150ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：150ms -
0
zhangshuai LV 3 @ 2008-09-02 21:59:29
我想他本意是想弄离散化的
-
0
var n,j,i:integer;
x,y:array[1..32000] of integer;
b,c,a:array[1..32000] of integer;
procedure init;
var i,j:integer;
begin readln(n);
for i:=1 to n do
begin
readln(x[i],y[i]);
b[i]:=i-1;
end;
end;
procedure jisuan;
var i,j:integer;
begin for i:=1 to n do
for j:=1 to n do
begin
if (ij) and (x[i]>=x[j]) and (y[i]>=y[j]) then inc(c[i]);
end;
for i:=1 to n do
for j:=1 to n do
if b[i]=c[j] then inc(a[i]);
for i:=1 to n do
writeln(a[i]);
end;
begin init;
jisuan;
end. -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 166ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：166ms -
0
var n,j,i:integer;
x,y:array[1..32000] of integer;
b,c,a:array[1..32000] of integer;
procedure init;
var i,j:integer;
begin readln(n);
for i:=1 to n do
begin
readln(x[i],y[i]);
b[i]:=i-1;
end;
end;
procedure jisuan;
var i,j:integer;
begin for i:=1 to n do
for j:=1 to n do
begin
if (ij) and (x[i]>=x[j]) and (y[i]>=y[j]) then inc(c[i]);
end;
for i:=1 to n do
for j:=1 to n do
if b[i]=c[j] then inc(a[i]);
for i:=1 to n do
writeln(a[i]);
end;
begin init;
jisuan;
end.
感谢永恒の灵魂提供水题 -
0
xiaogeqq1034 LV 4 @ 2008-08-22 17:07:22
program P1066;
var
a:array[0..15000] of longint;
f:array[1..15000,1..2] of longint;
n,i,j,kk:longint;
begin
readln(n);
for i:=1 to n do
readln(f,f);
for i:=1 to n do
begin
kk:=0;
for j:=1 to n do
if (ij)and(f[j,1] -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 244ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：244ms
- -!!!!!!!!
这个题目是洪水级别的水题.........
数据太太太太弱了.......
循环+判断+数组存就可以了 -
0
bochuan007 LV 3 @ 2008-08-21 20:43:58
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 166ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：166ms
的确是水题。。。。比楼上的大大少几毫秒 ^_^ -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 338ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：338ms
一次AC！感谢水题！水题有益健康！
循环+判断+桶排序=AC！ -
0
我竟然用sbt来写这个题目。。唉。。。
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 72ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：72ms弱弱问一句，那些0ms的是怎么做出来的？
-
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms哈，0ms通过，庆祝一下！
我先用快排把所有点按纵坐标从小到大排序一遍，纵坐标相等则按横坐标从小到大。
然后搜的时候只要搜在第i个点之前那些点，看是不是横纵座标都小于i点。
于是就0ms通过了！^_^ -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 181ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：181ms
IVORY
LV 4
@ 2008-09-14 10:26:13
