讨论 / O(n^5) 都90 弱弱的数据!
zsx 2009-10-31 17:45:00
点我顶贴 收藏 删除

首页 | 题库 赛题 | 状态 比赛 | 排行 讨论 题解 | 团队 主题 个人信息 消息 注销 | OIBH 赞助我们

Announcement : RQNOJ添加题目规则公布

查看状态 Show Status

状态题目:Blizzard Tower Defense

题目编号:408-Blizzard Tower Defense 查看该题

状态: Unaccepted

测评机: Xeost[5]

得分: 90分

提交日期: 2009-10-31 17:32:00

有效耗时: 1638毫秒

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

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

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

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

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

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

测试结果7: 选手程序运行超过时限

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

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

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

提交代码: var i,p,j,k,m,n,x,y:longint;

a:array[-101..210,-101..210] of char;

function f:boolean;

var l,ll,lll:longint;

begin

lll:=0;

for l:=j to j+x-1 do if lll=-1 then break else

for ll:=k to k+x-1 do

if a[l,ll]=’0’ then begin lll:=-1;break;end;

if lll=0 then f:=true else f:=false;

end;

begin

readln(m,n);

for i:=1 to m do begin

for j:=1 to n do read(a[i,j]);

readln;end;

read(p);

for i:=1 to p do begin

read(x);

for j:=1 to m-x+1 do

for k:=1 to n-x+1 do

if f then inc(y);

writeln(y);y:=0;end;

end.

Powered By RenQing | Art Design By Azuis 帮助 关于

鲁ICP备05014231号

Processed in 0.25 second(s).

Copyright (c) 2007-2008 Www.RQNOJ.Cn. All Rights Reserved .

查看更多回复
提交回复