过河卒问题求修改这是我的程序var a:array[0..20,0..20] of boolean;d:array[0..20,0..20] of longint;i,j,x,y,m,n:longint;beginreadln(n,m,x,y);for i:=0 to n dofor j:=0 to m doa[i,j]:=true;a[x+2,y+1]:=false;a[x+2,y-1]:=false;a[x-2,y+1]:=false;
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/18 01:41:30
![过河卒问题求修改这是我的程序var a:array[0..20,0..20] of boolean;d:array[0..20,0..20] of longint;i,j,x,y,m,n:longint;beginreadln(n,m,x,y);for i:=0 to n dofor j:=0 to m doa[i,j]:=true;a[x+2,y+1]:=false;a[x+2,y-1]:=false;a[x-2,y+1]:=false;](/uploads/image/z/8550381-21-1.jpg?t=%E8%BF%87%E6%B2%B3%E5%8D%92%E9%97%AE%E9%A2%98%E6%B1%82%E4%BF%AE%E6%94%B9%E8%BF%99%E6%98%AF%E6%88%91%E7%9A%84%E7%A8%8B%E5%BA%8Fvar+a%3Aarray%5B0..20%2C0..20%5D+of+boolean%3Bd%3Aarray%5B0..20%2C0..20%5D+of+longint%3Bi%2Cj%2Cx%2Cy%2Cm%2Cn%3Alongint%3Bbeginreadln%28n%2Cm%2Cx%2Cy%29%3Bfor+i%3A%3D0+to+n+dofor+j%3A%3D0+to+m+doa%5Bi%2Cj%5D%3A%3Dtrue%3Ba%5Bx%2B2%2Cy%2B1%5D%3A%3Dfalse%3Ba%5Bx%2B2%2Cy-1%5D%3A%3Dfalse%3Ba%5Bx-2%2Cy%2B1%5D%3A%3Dfalse%3B)
过河卒问题求修改这是我的程序var a:array[0..20,0..20] of boolean;d:array[0..20,0..20] of longint;i,j,x,y,m,n:longint;beginreadln(n,m,x,y);for i:=0 to n dofor j:=0 to m doa[i,j]:=true;a[x+2,y+1]:=false;a[x+2,y-1]:=false;a[x-2,y+1]:=false;
过河卒问题求修改
这是我的程序
var a:array[0..20,0..20] of boolean;
d:array[0..20,0..20] of longint;
i,j,x,y,m,n:longint;
begin
readln(n,m,x,y);
for i:=0 to n do
for j:=0 to m do
a[i,j]:=true;
a[x+2,y+1]:=false;
a[x+2,y-1]:=false;
a[x-2,y+1]:=false;
a[x-2,y-1]:=false;
a[x+1,y+2]:=false;
a[x+1,y-2]:=false;
a[x-1,y+2]:=false;
a[x-1,y-2]:=false;
a[x,y]:=false;
d[0,0]:=1;
for i:=1 to n do if a[i,0]=true then
d[i,0]:=1 else break;
for i:=1 to m do if a[0,i]=true then
d[0,i]:=1 else break;
for i:=1 to n do
for j:=1 to m do
if a[i,j]=true then
d[i,j]:=d[i-1,j]+d[i,j-1];
writeln(d[n,m]);
end.
不知道哪里出错,输出是0,.个人认为没问题⊙﹏⊙b
过河卒问题求修改这是我的程序var a:array[0..20,0..20] of boolean;d:array[0..20,0..20] of longint;i,j,x,y,m,n:longint;beginreadln(n,m,x,y);for i:=0 to n dofor j:=0 to m doa[i,j]:=true;a[x+2,y+1]:=false;a[x+2,y-1]:=false;a[x-2,y+1]:=false;
- -没错,AC代码