baiguikai 2012-08-08 10:51:00
点我顶贴
收藏
删除
这是铺地毯那道题,大家有好代码也可贴一下
var
x,y,ch,ku:array[1..10000] of integer;
i,j,k,n,x0,y0:longint;
begin
readln(n);
for i:=1 to n do readln(x[i],y[i],ch[i],ku[i]);
readln(x0,y0);
for i:=n downto 1 do
if (x0>=x[i]) and (y0>=y[i]) and (x0<=(x[i]+ch[i])) and (y0<=(y[i]+ku[i])) then begin writeln(i); halt; end;
writeln(-1);
end.
测评机: Xeost[5]
得分: 60分
提交日期: 2012-8-5 18:23:00
有效耗时: 1016毫秒
测试结果1: 通过本测试点|有效耗时188ms
测试结果2: 通过本测试点|有效耗时156ms
测试结果3: 通过本测试点|有效耗时172ms
测试结果4: 通过本测试点|有效耗时172ms
测试结果5: 通过本测试点|有效耗时172ms
测试结果6: 通过本测试点|有效耗时156ms
测试结果7: 测试结果错误.错误结果为:1305
正确结果应为:1306
测试结果8:测试结果错误.错误结果为:4571
正确结果应为:4573
测试结果9:测试结果错误.错误结果为:6311
正确结果应为:6312
测试结果10:测试结果错误.错误结果为:6821
正确结果应为:6823
#1 barry@2012-08-08 10:51:00
26860
回复
删除
回复 楼主baiguikai 的帖子
x,y,ch,ku:array[1..10000] of integer-----改成longint即可