迷宫pascal程序
来源:互联网 发布:淘宝 小石头 编辑:程序博客网 时间:2024/04/29 22:20
题意
走迷宫,要绕开障碍,走过的就不能再走,求有多少种不同的方法可以到达终点
分析
我们可以用深搜来做,输入时把障碍的坐标记录下来
const
dx:array[1..4]of longint=(0,0,1,-1);
dy:array[1..4]of longint=(1,-1,0,0);
var
n,m,t,sx,sy,fx,fy,tj,i,z1,z2:longint;
a:array[-100..100,-100..100]of longint;
procedure search(x,y:longint);
var
i:longint;
begin
if (a[x,y]=1)or(x<1)or(x>n)or(y<1)or(y>m) then exit;
if (x=fx)and(y=fy) then
begin
inc(tj);
exit;
end;
a[x,y]:=1;
for i:=1 to 4 do
begin
x:=x+dx[i];
y:=y+dy[i];
search(x,y);
x:=x-dx[i];
y:=y-dy[i];
end;
a[x,y]:=0;
end;
begin
readln(n,m,t);
readln(sx,sy,fx,fy);
fillchar(a,sizeof(a),0);
for i:=1 to t do
begin
readln(z1,z2);
a[z1,z2]:=1;
end;
tj:=0;
search(sx,sy);
write(tj);
end.
- 迷宫问题pascal程序
- 迷宫pascal程序
- 电子老鼠闯迷宫pascal解题程序
- 迷宫程序
- PASCAL基础-程序体
- 我是程序猿-Pascal
- 最大正数pascal程序
- 拼数pascal程序
- 纪念品分组pascal程序
- 美元汇率pascal程序
- 零件分组pascal程序
- 字符序列pascal程序
- 最优乘车pascal程序
- 机器翻译pascal程序
- 分数线划定pascal程序
- 宇宙总统pascal程序
- 铺地毯pascal程序
- 多项式输出pascal程序
- wmi执行dos命令
- SVN commit或import 的 Permission denied的原因
- Java基本数据类型
- 机器学习新星:Scala 优于 Java 的五大理由!
- fragment 显示与隐藏执行
- 迷宫pascal程序
- 解决Eclipse SVN文件冲突详解
- c++修改指定文件夹下所有文件扩展名
- c——内置类型
- Java 读写Properties配置文件
- lucene 排序问题
- 3D动画效果照片墙demo
- 最少拦截系统
- Net share 命令详解