循环扫描从 1 到n 跟x1 到n是一样的??(不是有方向吗)

var

n,m,x1,x2,y1,y2,i,j:longint;

f:array[-5..1005,-5..1005] of int64;

begin

readln(n,m);

readln(x1,y1);

readln(x2,y2);

f[x1,y1]:=1;

for i:=1 to n do

for j:=1 to m do

f:=f+f+f+f+f;

if f[x2,y2]0 then writeln(f[x2,y2],'00000000') else writeln('NO');

end.

0 条评论

目前还没有评论...

信息

ID
1187
难度
6
分类
搜索 | 搜索与剪枝 点击显示
标签
递交数
2857
已通过
753
通过率
26%
被复制
6
上传者