记录编号 |
137498 |
评测结果 |
AAAAAAAAAA |
题目名称 |
跳马问题 |
最终得分 |
100 |
用户昵称 |
helloworld123 |
是否通过 |
通过 |
代码语言 |
Pascal |
运行时间 |
0.002 s |
提交时间 |
2014-11-04 20:46:45 |
内存使用 |
0.17 MiB |
显示代码纯文本
program cogs49;
const
maxn=20;
dx:array[1..4] of longint=(-2,-1,1,2);
dy:array[1..4] of longint=(1,2,2,1);
var
m,n,i,j,x,y,k:longint;
f:array[1..maxn,1..maxn] of longint;
function heshi(x,y:longint):boolean;
begin
if (x>0)and(x<=m)and(y>0)and(y<=n) then exit(true);
exit(false);
end;
begin
assign(input,'horse.in'); reset(input);
assign(output,'horse.out'); rewrite(output);
readln(m,n);
f[1,1]:=1;
for j:=1 to n do
for i:=1 to m do
begin
for k:=1 to 4 do
begin
x:=i+dx[k];
y:=j+dy[k];
if heshi(x,y) then
f[x,y]:=f[i,j]+f[x,y];
end;
end;
writeln(f[m,n]);
close(input); close(output);
end.