讨论 / 数组开到0就不行
Fish、のTorres 2011-08-29 16:05:00
点我顶贴 收藏 删除
目:侦察守卫

状态: Unaccepted

测评机: Xeost[5]

得分: 90分

提交日期: 2011-8-29 16:03:00

有效耗时: 564毫秒

测试结果1: 通过本测试点|有效耗时172ms

测试结果2: 通过本测试点|有效耗时47ms

测试结果3:

测试结果4: 通过本测试点|有效耗时47ms

测试结果5: 通过本测试点|有效耗时47ms

测试结果6: 通过本测试点|有效耗时47ms

测试结果7: 通过本测试点|有效耗时63ms

测试结果8: 通过本测试点|有效耗时47ms

测试结果9: 通过本测试点|有效耗时47ms

测试结果10: 通过本测试点|有效耗时47ms

提交代码:

01.

var a:array[0..100,0..100]of longint;

02.

b:array[0..2]of longint;

03.

k,x1,x2,y1,y2,i,j:longint;

04.

begin

05.

for k:=1 to 2 do begin

06.

read(x1,y1,x2,y2);

07.

for i:=x1+1 to x2 do

08.

for j:=y1+1 to y2 do inc(a[i,j]);

09.

end;

10.

for i:=1 to 100 do

11.

for j:=1 to 100 do inc(b[a[i,j]]);

12.

writeln(b[2],' ',b[1],' ',b[0]);

13.

end.

Accepted

测评机: Xeost[5]

得分: 100分 [我要评价一下题目~]

提交日期: 2011-8-29 16:05:00

有效耗时: 579毫秒

测试结果1: 通过本测试点|有效耗时157ms

测试结果2: 通过本测试点|有效耗时47ms

测试结果3: 通过本测试点|有效耗时46ms

测试结果4: 通过本测试点|有效耗时47ms

测试结果5: 通过本测试点|有效耗时47ms

测试结果6: 通过本测试点|有效耗时47ms

测试结果7: 通过本测试点|有效耗时47ms

测试结果8: 通过本测试点|有效耗时47ms

测试结果9: 通过本测试点|有效耗时47ms

测试结果10: 通过本测试点|有效耗时47ms

提交代码:

01.

var a:array[1..100,1..100]of longint;

02.

b:array[0..2]of longint;

03.

k,x1,x2,y1,y2,i,j:longint;

04.

begin

05.

for k:=1 to 2 do begin

06.

read(x1,y1,x2,y2);

07.

for i:=x1+1 to x2 do

08.

for j:=y1+1 to y2 do inc(a[i,j]);

09.

end;

10.

for i:=1 to 100 do

11.

for j:=1 to 100 do inc(b[a[i,j]]);

12.

writeln(b[2],' ',b[1],' ',b[0]);

13.

end.

查看更多回复
提交回复