哪位大神来指点迷津!!!

#01: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

#02: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

#03: Wrong Answer (0ms, 580KB)

#04: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

#05: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

#06: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

#07: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

#08: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

#09: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

#10: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

Wrong Answer / 90 / 0ms / 580KB

#01: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

#02: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

#03: Wrong Answer (0ms, 580KB)

#04: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

#05: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

#06: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

#07: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

#08: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

#09: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

#10: ---|---|---|---|---|---|---|---|-

Accepted (0ms, 580KB)

Wrong Answer / 90 / 0ms / 580KB

var

a,f:array[0..16,0..16]of longint;

i,j,n,m,k:integer;

zu,ma:array[1..2]of integer;

function max(a,b:longint):longint;

begin

if a>b then max:=a else max:=b;

end;

procedure change(x,y:integer);

begin

if (x+2=1) then a[x-2,y-1]:=-1;

if (y+2=1) then a[x-1,y-2]:=-1;

a[x,y]:=-1;

end;

begin

readln(zu[1],zu[2],ma[1],ma[2]);

fillchar(a,sizeof(a),0);

change(ma[1],ma[2]);

a[0,0]:=1;

for i:=1 to 15 do begin a:=1;a[0,i]:=1;end;

for i:=0 to zu[1] do

for j:=0 to zu[2] do

if a-1 then begin

if (a-1)and(a-1)

then a:=a+a

else a:=max(a,a);

end;

writeln(a[zu[1],zu[2]]);

end.

第三个点过不了啊…………

╮(╯﹏╰)╭

0 条评论

目前还没有评论...

信息

ID
1121
难度
4
分类
动态规划 点击显示
标签
递交数
9583
已通过
3786
通过率
40%
被复制
25
上传者