计算机走迷宫 C源码

/* 这个也是大一下学期写的 当时不太会用结构体 所以代码显得比较weak。。。 后来说要做个改进 一直也没有付诸实施 */ #include<stdio.h> #include<string.h> int x[1000],y[1000],p[1000],m[1000],n[1000],*topm,*topn,*topx,*topy,*topp,*basem,*basen,*basex,*basey,*basep; int l,r; char a[100][100]; void Initstackx() { topx=basex=x; } void Initstacky() { topy=basey=y; } void Initstackp() { topp=basep=p; } void Initstackm() { topm=basem=m; } void Initstackn() { topn=basen=n; } int stackemptyx() { if(topx==basex) return (1); else return (0); } int stackemptyy() { if(topy==basey) return (1); else return (0); } int stackemptyp() { if(topp==basep) return (1); else return (0); } int *gettopx() { return(topx); } int *gettopy() { return(topy); } int *gettopp() { return(topp); } int *popx() { topx--; return(topx+1); } int *popy() { topy--; return(topy+1); } int *popp() { topp--; return(topp+1); } void pushx(int pos) { topx++; *topx=pos; } void pushy(int pos) { topy++; *topy=pos; } void pushp(int pos) { topp++; *topp=pos; } void pushm(int pos) { topm++; *topm=pos; // } void pushn(int pos) { topn++; *topn=pos; } int check(int i,int j) { int *p1,*p2; p1=basem+1; p2=basen+1; while(p1<=topm) { if(*p1==i&&*p2==j) return(1); else { p1++; p2++; } } return(0); } int rout(int i,int j,int pos) { switch(pos) { case 0:if(a[i][j+1]!='#'&&j+1<l&&check(i,j+1)!=1) return(1); else if(a[i+1][j]!='#'&&i+1<r&&check(i+1,j)!=1) return(2); else if(a[i][j-1]!='#'&&j-1>=0&&check(i,j-1)!=1) return(3); else if(a[i-1][j]!='#'&&i-1>=0&&check(i-1,j)!=1) return(4); else return (0); case 1:if(a[i+1][j]!='#'&&i+1<r&&check(i+1,j)!=1) return(2); else if(a[i][j-1]!='#'&&j-1>=0&&check(i,j-1)!=1) return(3); else if(a[i-1][j]!='#'&&i-1>=0&&check(i-1,j)!=1) return(4); else return (0); case 2:if(a[i][j+1]!='#'&&j+1<l&&check(i,j+1)!=1) return(1); else if(a[i][j-1]!='#'&&j-1>=0&&check(i,j-1)!=1) return(3); else if(a[i-1][j]!='#'&&i-1>=0&&check(i-1,j)!=1) return(4); else return (0); case 3:if(a[i][j+1]!='#'&&j+1<l&&check(i,j+1)!=1) return(1); else if(a[i+1][j]!='#'&&i+1<r&&check(i+1,j)!=1) return(2); else if(a[i-1][j]!='#'&&i-1>=0&&check(i-1,j)!=1) return(4); else return (0); case 4:if(a[i][j+1]!='#'&&j+1<l&&check(i,j+1)!=1) return(1); else if(a[i+1][j]!='#'&&i+1<r&&check(i+1,j)!=1) return(2); else if(a[i][j-1]!='#'&&j-1>=0&&check(i,j-1)!=1) return(3); else return (0); } } int main() { puts("**********************************************************************"); puts("* *"); puts("* 走 迷 宫 *"); puts("* *"); puts("* 软件2班 王凯旋 *"); puts("**********************************************************************\n\n"); puts("说明：1 . 以'#'代表墙，空格代表可走区域"); puts(" 2 . 可走任意阶迷宫，'CTRL + Z'代表输入结束"); puts(" 3 . 不必输入边框"); int i,j,t; begin: Initstackx(); Initstacky(); Initstackp(); Initstackm(); Initstackn(); gets(a[0]); if((l=strlen(a[0]))==0) { printf("您没有输入迷宫\n请输入迷宫：\n"); goto begin; } r=1; while(gets(a[r])) r++; //得到迷宫 i=0;j=0; while(1) { pushm(i); pushn(j); if(i==r-1&&j==l-1) { //到出口位置跳出 if(a[i][j]=='#') goto out; else goto output; } if((t=rout(i,j,0))>0) //当前位置可通 t为可通方向 { pushx(i); pushy(j); pushp(t); //路径进栈 switch(t) //切换下一个位置为当前位置 { case 1:j++;break; case 2:i++;break; case 3:j--;break; case 4:i--;break; } } else //当前位置不可通 { if((!stackemptyx())&&((t=rout(*gettopx(),*gettopy(),*gettopp())>0))) //栈不空且上一个位置还有其他路径可走 { popp(); pushp(t); //压入新位置 switch(t) //切换到下一个当前位置 { case 1:j++;break; case 2:i++;break; case 3:j--;break; case 4:i--;break; } } else { while((!stackemptyx())&&((t=rout(*gettopx(),*gettopy(),*gettopp()))==0)) //当栈不空且当前位置无其他路可走 {popx();popy();popp();i=*gettopx();j=*gettopy();} //弹出当前位置 if(stackemptyx()) //若栈空，跳出 goto out; else //否则切换下一个当前位置 { popp(); pushp(t); //压入新位置 switch(t) //切换到下一个当前位置 { case 1:j++;break; case 2:i++;break; case 3:j--;break; case 4:i--;break; } } } } } out: if(stackemptyx()) { puts("No solution!\n"); goto begin; } output: putchar(10); while(!stackemptyx()) { a[*popx()][*popy()]='.'; } a[r-1][l-1]='.'; for(i=0;i<l+2;i++) printf("0"); printf("\n"); for(i=0;i<r;i++) { printf("0"); for(j=0;j<l;j++) printf("%c",a[i][j]); printf("0\n"); } for(i=0;i<l+2;i++) printf("0"); printf("\n"); goto begin; }