首页 | 题库 赛题 | 状态 比赛 | 排行 讨论 题解 | 团队 主题 个人信息 消息 注销 | 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 .