30 条题解
-
1
涅槃、卿莫 (龙阿紫) LV 10 @ 2021-10-14 19:53:14
逊
-
0
w122185976 LV 10 @ 2009-02-13 17:53:25
好复杂的题目+诡异的数据,但是不难!(还好有楼下的提醒数据有问题,不然怎么A啊!)
-
0
var i,j,k1,k2,l1,l2,m,n,d,x,y,p,q,t,min,ans:longint;
a,b:array[0..31,0..31]of longint;
c:array[0..31,0..31]of boolean;
procedure chuan(time,hen,zong:longint);
var e,f,min:longint;
begin
if ((not(c[hen-1,zong]))and(not(c[hen,zong-1]))and(not(c[hen+1,zong]))and(not(c[hen,zong+1])))and(ansk1*k2)
then
begin
writeln('Error!');
write(hen,',',zong);
halt;
end
else
if ans=k1*k2 then
begin
writeln(ans);
write(hen,',',zong);
halt;
end;
e:=hen;
f:=zong;
min:=maxlongint;
if c[hen-1,zong] then begin min:=a[hen-1,zong];e:=hen-1;f:=zong;end;
if (c[hen,zong-1])and(min>a[hen,zong-1])then
begin
min:=a[hen,zong-1];
e:=hen;
f:=zong-1;
end;
if (c[hen+1,zong])and(min>a[hen+1,zong])then
begin
min:=a[hen+1,zong];
e:=hen+1;
f:=zong;
end;
if (c[hen,zong+1])and(min>a[hen,zong+1])then
begin
min:=a[hen,zong+1];
e:=hen;
f:=zong+1;
end;
time:=time-min;
if time>0 then begin ans:=ans+1;c[e,f]:=false;chuan(time,e,f);end
else if time=0
then
begin
writeln(ans+1);
write(e,',',f);
halt;
end
else
begin
writeln(ans);
write(e,',',f);
halt;
end;
end;
begin
fillchar(c,sizeof(c),false);
readln(k1,k2);
for i:=1 to k1 do
begin
for j:=1 to k2 do
begin
read(a);
c:=true;
if a=0 then
begin
x:=i;
y:=j;
c:=false;
end;
end;
readln;
end;
readln(l1,l2);
for i:=1 to l1 do
begin
for j:=1 to l2 do
begin
read(b);
if b=0 then
begin
p:=i;
q:=j;
end;
end;
readln;
end;
read(d);
t:=0;
min:=0;
ans:=1;
for i:=l1 downto p+1 do
for j:=l2 downto 1 do
t:=t+b;
if d=0
then
begin
if (l1-p) mod 2=0 then for j:=1 to q-1 do t:=t+b[p,j]
else for j:=l2 downto q+1 do t:=t+b[p,j];
end
else
begin
if (l1-p) mod 2=0 then for j:=l2 downto q+1 do t:=t+b[p,j]
else for j:=1 downto q-1 do t:=t+b[p,j];
end;
chuan(t,x,y);
end.
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案错误...程序输出比正确答案长
├ 测试数据 04：答案错误...程序输出比正确答案长
├ 测试数据 05：答案错误...程序输出比正确答案长
├ 测试数据 06：答案错误...程序输出比正确答案长
├ 测试数据 07：答案错误...程序输出比正确答案长
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
请问各位大牛，如何解决？ -
0
lmjgood520 LV 9 @ 2009-02-02 15:50:45
害人的数据
强烈请求查看数据的正确性
PS:如果剩余时间小于0了
还是要继续找下一个坐标输出
但人数保持不变 -
0
why19931123 LV 10 @ 2009-02-02 15:30:22
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms终于A了!!!!!!!
第10个AC!!!!!!
不过,数据貌似有点问题!!!
题目以及数据都有点诡异!!!!
-
0
almas.winner LV 7 @ 2009-01-27 17:48:53
#include
#include
using namespace std;
int find (int z,int x,int c,int v)
{
if (z==INT_MAX&&x==INT_MAX&&c==INT_MAX&&v==INT_MAX)return 0;
int k,l;
k=min(z,x);
l=min(c,v);
l=min(k,l);
if (l==z)return 1;
if (l==x)return 2;
if (l==c)return 3;
return 4;
}
int main (void)
{
int k1,k2;
cin>>k1>>k2;
int g1=1,g=1,l,a[k1][k2],a1[k1][k2],i,j,p=1,p1,p2,m=0,f1,f2,y1,y2,z,x,c,v;
for (i=0;ia[i][j];a1[i][j]=0;
if (a[i][j]==0){f1=i;f2=j;}
}
}
a1[f1][f2]=1;
cin>>y1>>y2;
int b[y1][y2];
for (i=0;ib[i][j];
if (b[i][j]==0){p=0;p1=i;p2=j;}
if (p==0&&p1!=i){m+=b[i][j];}
}
}
cin>>p;
if (p==0) {for (i=0;i
涅槃、卿莫 (龙阿紫)
LV 10
@ 2021-10-14 19:53:14
