pascal实现走迷宫程序

在程序的最后加一个条件语句：

若之前pr过程（也就是你的路径输出过程）没被执行过，那么 输出"NO"

当然，在pr过程中要加入一个标记记录这个过程是否被执行了。

还有，你的程序对于题目的输入是不能正常读入的，输出也不符合标准，需要修改。

另外，宽搜尽量用UNTIL语句写，比较好调试。

祝你早日成为编程高手！

/注：本程序探索迷宫的优先顺序=> 1-下、2-右、3-上、4-左 <=总体趋势：下右，逆时针方向。因为出口就在右边下方/

#include<stdioh>

#include<stdlibh>

#include<timeh>

#define stack_init_size 200

#define stack_increment 10

#define OVERFLOW 0

#define OK 1

#define ERROE 0

#define TRUE 1

#define FALSE 0

typedef int Status;

typedef struct{

int x;

int y;

}PosType;

typedef struct {

int ord; // 通道块在路径上的"序号"

PosType seat; //通道块在迷宫中的"坐标位置"

int di; //从此通道块走向下一通道块的"方向"

}SElemType;

typedef struct{

SElemType base;

SElemType top;

int stacksize;

}SqStack;

int mg[20][20];

/随机生成迷宫的函数

/为了能够让尽量能通过，将能通过的块和不能通过的块数量比大致为2:1/

void Random(){

int i,j,k;

srand(time(NULL));

mg[1][0]=mg[1][1]=mg[18][19]=0; //将入口、出口设置为"0"即可通过

for(j=0;j<20;j++)

mg[0][j]=mg[19][j]=1; /设置迷宫外围"不可走"，保证只有一个出口和入口/

for(i=2;i<19;i++)

mg[i][0]=mg[i-1][19]=1; /设置迷宫外围"不可走"，保证只有一个出口和入口/

for(i=1;i<19;i++)

for(j=1;j<19;j++){

k=rand()%3; //随机生成0、1、2三个数

if(k)

mg[i][j]=0;

else{

if((i==1&&j==1)||(i==18&&j==18)) /因为距入口或出口一步的路是必经之路，故设该通道块为"0"加大迷宫能通行的概率/

mg[i][j]=0;

else

mg[i][j]=1;

}

}

}

//构造一个空栈

Status InitStack(SqStack &s){

sbase =(SElemType )malloc(stack_init_size sizeof(SElemType));

if(!sbase) return OVERFLOW;

stop=sbase;

sstacksize=stack_init_size;

return OK;

}

//当前块可否通过

Status Pass(PosType e){

if (mg[ex][ey]==0) //0时可以通过

return OK; // 如果当前位置是可以通过，返回1

return OVERFLOW; // 其它情况返回0

}

//留下通过的足迹

Status FootPrint(PosType e){

mg[ex][ey]=7;

return OK;

}

//压入栈

Status Push(SqStack &s,SElemType e){

if(stop-sbase>=sstacksize){

sbase=(SElemType )realloc(sbase,(sstacksize+stack_increment) sizeof(SElemType));

if(!sbase)exit(OVERFLOW);

stop=sbase+sstacksize;

sstacksize+=stack_increment;

}

stop++=e;

return OK;

}

//出栈

Status Pop(SqStack &s,SElemType &e){

if(stop==sbase)

return ERROE;

e=--stop;

return OK;

}

//下一步

PosType NextPos(PosType &e,int dir){

PosType E;

switch(dir){

case 1:Ex=ex; //向下

Ey=ey+1;

break;

case 2:Ex=ex+1; //向右

Ey=ey;

break;

case 3:Ex=ex; //向上

Ey=ey-1;

break;

case 4:Ex=ex-1; //向左

Ey=ey;

break;

}

return E;

}

//是否空栈

Status StackEmpty(SqStack s){

if (stop==sbase)

return OK;

return OVERFLOW;

}

//留下不能通过的足迹

Status MarkPrint(PosType e){

mg[ex][ey]=3;

return OK;

}

//迷宫函数

// 若迷宫maze中从入口 start到出口 end的通道，则求得一条存放在栈中

// （从栈底到栈顶），并返回TRUE；否则返回FALSE

Status MazePath(int mg,PosType start,PosType end,SqStack &s){

PosType curpos;

InitStack(s);

SElemType e;

int curstep;

curpos=start; // 设定"当前位置"为"入口位置"

curstep=1; // 探索第一步

do{

if(Pass(curpos)){ // 当前位置可通过，即是未曾走到过的通道块

FootPrint(curpos); // 留下足迹

edi =1;

eord = curstep;

eseat= curpos;

Push(s,e); // 加入路径

if(curposx==endx&&curposy==endy){

printf("\n\n0∩_∩0 能到达终点!");

return TRUE;

}

curpos=NextPos(curpos,1); // 下一位置是当前位置的东邻

curstep++; // 探索下一步

}

else{ // 当前位置不能通过

if(!StackEmpty(s)){

Pop(s,e);

while(edi==4&&!StackEmpty(s)){

MarkPrint(eseat);

Pop(s,e);

}

if(edi<4){

edi++;

Push(s,e); // 留下不能通过的标记，并退回一步

curpos=NextPos(eseat,edi); / 当前位置设为新方向的相邻块/

}//if

}//if

}//else

}while(!StackEmpty(s));

printf("\n\n囧 ! 不能到达终点!");

return FALSE;

}

//打印迷宫

void PrintMaze(){

int i,j;

printf("运行路径:\n\n");

for(i=0;i<20;i++){

for(j=0;j<20;j++){

if(mg[i][j]==0)printf(" ");

else if(mg[i][j]==1) printf("■"); //迷宫的"墙"

else if(mg[i][j]==3) printf("◇"); //不通的路

else if(mg[i][j]==7)printf("○"); //通过的路径

}

printf("\n");

}

printf("\n");

}

void main(){

SqStack S;

PosType start,end;

startx=1;starty=0; //起点坐标

endx=18;endy=19; //终点坐标

printf("\n==================迷宫游戏==================");

printf("\n说明:■不能走的区域\t◇走不通的区域");

printf("\n '空格'代表未到过的区域");

printf("\n ○代表能通过的路径，指向终点");

printf("\n============================================");

Random();

printf("\n\nTest 1:");

MazePath(mg[20][20],start,end,S);

PrintMaze();

system("pause");

Random();

printf("\nTest 2:");

MazePath(mg[20][20],start,end,S);

PrintMaze();

system("pause");

Random();

printf("\nTest 3:");

MazePath(mg[20][20],start,end,S);

PrintMaze();

printf("\n==========程序退出，感谢使用!==========\n");

}

你需要的是迷宫的算法？用STACK来实现，

用些逻辑判断,可以再每个块上标记是否可以通过还是不能通过，

让后初始化人物在某一个位置，让后让他像左边开始走，然后右边。。

就是穷举每个路径，然后可以通过就放到STACK中，在放的时候判断，

时候路径在STACK已经存在，避免不是最短路径，和死循环！

只需要用个递归来做深度遍历就行了！其实也就是图论的问题！

输入这段就不用写了吧。比较简单

A 输入迷宫

用2维数组把这个 迷宫存下来就行了。 墙用0表示 路用1表示。 或者直接用字符的2维数组也行。设为公共变量 migong[m][m] 用公共变量存 m

B 走通判定 (这里以一个迷宫为例，多个迷宫的话 输入那边处理一下就好了，反正中心思想就是1个迷宫用一个2维数组存)

是否能走通的判定。 用迭代法

1 判定周围是否有e(因为e在右下角 只用判断下方和右方就可以了)

2 没有向右走

3 右是墙的话向下走

4 下是墙的话向左走

5 左是墙的话向上走。

bool findway(int startx,int,starty)

{

int end = m - 1;

if(x + 1 == end && y == end || x == end && y + 1 == end )

{

return true; //可以走通 返回YES

}

else if (x + 1 < end && migong[x + 1][y] != '#') //当前点不处于最右侧 且右侧点不为墙的时候

{

findway(startx + 1,starty); //右移

}

else if(y + 1 < end && migong[x][y+1] !='#' ) //当前点不处于最下侧 且下侧点不为墙的时候

{

findway(startx,starty + 1); //下移

}

//按照这个思路做 以下省略

}

然后主函数中调用 findway(0,0) 就OK了。

写得比较简单，不好意思。

以上就是关于pascal实现走迷宫程序全部的内容，包括:pascal实现走迷宫程序、走迷宫的C语言版代码求助 程序开始运行时显示一个迷宫地图，迷宫中央有一只老鼠，迷宫的右下方有一个粮、VC6.0编一个走迷宫的程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！