迷宫pascal程序

题意

走迷宫，要绕开障碍，走过的就不能再走，求有多少种不同的方法可以到达终点

分析

我们可以用深搜来做，输入时把障碍的坐标记录下来

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.

转载于:https://www.cnblogs.com/YYC-0304/p/9500219.html

迷宫pascal程序相关推荐

Pascal程序结构
Pascal程序结构什么是Pascal程序结构 Pascal程序结构是指Pascal程序的基本组成部分及其组织方式,包括程序.单元.过程.函数.类型定义.变量定义.语句和表达式等.程序结构的良好设计 ...
迷宫问题pascal程序
Description 设有一个n×n的方格迷宫,入口和出口分别在左上角和右上角(如图的示) 迷宫的格子分别放有0和1,0表示可通,1表示不能,迷宫走的规则如下图所示. 即从某点出发,可沿8个方向前进 ...
电子老鼠闯迷宫pascal解题程序
这题我是用广度优先搜索的方法来写的 head是头指针,tail是尾指针我先找出下一个点,再判断这个点能不能走,能走就记录该点,到达终点时,就输出. 我是用递归的方法输出的 const maxn=12 ...
我的第一次Pascal程序
今天刚刚来学点Pascal语言,都怪我买的书大多是用Pascal语言写的,所以我只能试着学一点咯! 来一段程序员最经典的Hello World! 1 program exl_2; 2 begin 3 ...
c 实现走迷宫流程图_c语言迷宫问题程序功能介绍.设计思路.数据结构设计及用法说明程序结构（流程图）.各模块的功能及程序说明....
满意答案 qiniy808451 2014.01.06 采纳率:40% 等级:13 已帮助:8084人原来也做过,以下是写的源代码,里面有部分注释,应该能看懂,可以运行.总结的话,把代码写进去 ...
Oliver的救援pascal程序
这题有点像电子老鼠闯迷宫,也是用广搜来做的我是用字符来输入的 const dx:array[1..4]of longint=(1,-1,0,0); dy:array[1..4]of longint= ...
最优乘车pascal程序
Description H城是一个旅游胜地,每年都有成千上万的人前来观光.为方便游客,巴士公司在各个旅游景点及宾馆,饭店等地都设置了巴士站并开通了一些单程巴上线路.每条单程巴士线路从某个巴士站出发,依 ...
试卷批分pascal程序
某学校进行了一次英语考试,共有10道是非题,每题为10分,解答用1表示"是",用0表示"非"的方式.但老师批完卷后,发现漏批了一张试卷,而且标准答案也丢失了,手 ...
编程题走迷宫_C++程序算法题----迷宫（一）
题目: 一天蒜头君掉进了一个迷宫里面,蒜头君想逃出去,可怜的蒜头君连迷宫是否有能逃出去的路都不知道.看在蒜头君这么可怜的份上,就请聪明的你告诉蒜头君是否有可以逃出去的路. 输入格式第一行输入两个整数 ...

迷宫pascal程序

迷宫pascal程序相关推荐

最新文章

热门文章