主题：[原创]迷宫程序，大家看看多顶顶
我爱qbasic
[专家分：160] 发布于 2009-07-13 18:49:00
迷宫程序，大家看看多顶顶，也提提意见，啊~~
最后更新于：2009-08-10 14:18:00
回复列表 （共15个回复）
沙发
gewenbo [专家分：450] 发布于 2009-08-08 18:51:00
没程序啊，哎……
我来发一个吧：
CLS
INPUT "X, y = ", x, y
DIM a(12, 12)
FOR i = 1 TO x
FOR j = 1 TO y
PRINT "A("; LTRIM$(RTRIM$(STR$(i))); ","; LTRIM$(RTRIM$(STR$(j))); ")=";
INPUT "", a(i, j)
IF a(i, j) = 1 THEN flag = 1
IF a(i, j) <> 1 AND a(i, j) <> 0 THEN PRINT "Data Error!": END
NEXT j, i
IF flag <> 1 THEN PRINT "Data Error!": END
CLS
FOR i = 1 TO x
FOR j = 1 TO y
PRINT USING "###"; a(i, j);
NEXT j: PRINT
NEXT i
PRINT "Press any key to continue(Press E to end)"
DO
z$ = INKEY$
LOOP UNTIL z$ <> ""
IF z$ = "E" THEN END
CLS : a$ = STRING$(3, CHR$(219)): b$ = STRING$(3, CHR$(176))
DIM s(100), x(100), y(100)
FOR i = 1 TO x
FOR j = 1 TO y
IF a(i, j) = 1 THEN LOCATE i, j * 3: PRINT a$
NEXT j, i
FOR i = 1 TO 4: FOR j = 1 TO 2
READ v(i, j)
NEXT j, i: DATA 0,1,1,0,0,-1,-1,0
LOCATE 12: PRINT "Press any key to run": d$ = INPUT$(1)
INPUT "Start I, J = ", x, y
y = y - 1
INPUT "End I, J = ", xe, ye
p = 0: x(p) = x: y(p) = y: i = 0
IF xe <= 0 OR ye <= 0 THEN PRINT "Data Error!": END
IF a(xe, ye) = 1 THEN PRINT "Data Error!": END
PRINT
DO
i = i + 1
IF i <= 4 THEN
x = x(p) + v(i, 1): y = y(p) + v(i, 2)
IF a(x, y) = 0 THEN
p = p + 1: s(p) = i: x(p) = x: y(p) = y
a(x, y) = 2
i = 0
GOSUB 10
END IF
ELSE
GOSUB 10
i = s(p): p = p - 1
END IF
LOOP UNTIL p = 0 OR x = xe AND y = ye
IF p = 0 THEN
PRINT "Not Find"
ELSE
LOCATE 14: PRINT "Start"; 2; ","; 0; "---->";
FOR i = 1 TO p
PRINT x(i); ","; y(i); "---->";
NEXT i
PRINT "Finish"
END IF
END
10 LOCATE x(p), y(p) * 3: FOR k = 1 TO 30000: NEXT
IF i <= 4 THEN PRINT USING "##"; p ELSE PRINT b$
RETURN
板凳
phile [专家分：2310] 发布于 2009-08-09 14:18:00
[quote]没程序啊，哎……
我来发一个吧：
CLS
INPUT "X, y = ", x, y
DIM a(12, 12)
FOR i = 1 TO x
FOR j = 1 TO y
PRINT "A("; LTRIM$(RTRIM$(STR$(i))); ","; LTRIM$(RTRIM$(STR$(j))); ")=";
INPUT "", a(i, j)
IF a(i, j) = 1 THEN flag = 1
IF a(i, j) <> 1 AND a(i, j) <> 0 THEN PRINT "Data Error!": END
NEXT j, i
IF flag <> 1 THEN PRINT "Data Error!": END
CLS
FOR i = 1 TO x
FOR j = 1 TO y
PRINT USING "###"; a(i, j);
NEXT j: PRINT
NEXT i
PRINT "Press any key to continue(Press E to end)"
DO
z$ = INKEY$
LOOP UNTIL z$ <> ""
IF z$ = "E" THEN END
CLS : a$ = STRING$(3, CHR$(219)): b$ = STRING$(3, CHR$(176))
DIM s(100), x(100), y(100)
FOR i = 1 TO x
FOR j = 1 TO y
IF a(i, j) = 1 THEN LOCATE i, j * 3: PRINT a$
NEXT j, i
FOR i = 1 TO 4: FOR j = 1 TO 2
READ v(i, j)
NEXT j, i: DATA 0,1,1,0,0,-1,-1,0
LOCATE 12: PRINT "Press any key to run": d$ = INPUT$(1)
INPUT "Start I, J = ", x, y
y = y - 1
INPUT "End I, J = ", xe, ye
p = 0: x(p) = x: y(p) = y: i = 0
IF xe <= 0 OR ye <= 0 THEN PRINT "Data Error!": END
IF a(xe, ye) = 1 THEN PRINT "Data Error!": END
PRINT
DO
i = i + 1
IF i <= 4 THEN
x = x(p) + v(i, 1): y = y(p) + v(i, 2)
IF a(x, y) = 0 THEN
p = p + 1: s(p) = i: x(p) = x: y(p) = y
a(x, y) = 2
i = 0
GOSUB 10
END IF
ELSE
GOSUB 10
i = s(p): p = p - 1
END IF
LOOP UNTIL p = 0 OR x = xe AND y = ye
IF p = 0 THEN
PRINT "Not Find"
ELSE
LOCATE 14: PRINT "Start"; 2; ","; 0; "---->";
FOR i = 1 TO p
PRINT x(i); ","; y(i); "---->";
NEXT i
PRINT "Finish"
END IF
END
10 LOCATE x(p), y(p) * 3: FOR k = 1 TO 30000: NEXT
IF i <= 4 THEN PRINT USING "##"; p ELSE PRINT b$
RETURN
[/quote]
此题可以考虑用递归！！
3 楼
gewenbo [专家分：450] 发布于 2009-08-13 11:06:00
[quote][quote]没程序啊，哎……
我来发一个吧：
CLS
INPUT "X, y = ", x, y
DIM a(12, 12)
FOR i = 1 TO x
FOR j = 1 TO y
PRINT "A("; LTRIM$(RTRIM$(STR$(i))); ","; LTRIM$(RTRIM$(STR$(j))); ")=";
INPUT "", a(i, j)
IF a(i, j) = 1 THEN flag = 1
IF a(i, j) <> 1 AND a(i, j) <> 0 THEN PRINT "Data Error!": END
NEXT j, i
IF flag <> 1 THEN PRINT "Data Error!": END
CLS
FOR i = 1 TO x
FOR j = 1 TO y
PRINT USING "###"; a(i, j);
NEXT j: PRINT
NEXT i
PRINT "Press any key to continue(Press E to end)"
DO
z$ = INKEY$
LOOP UNTIL z$ <> ""
IF z$ = "E" THEN END
CLS : a$ = STRING$(3, CHR$(219)): b$ = STRING$(3, CHR$(176))
DIM s(100), x(100), y(100)
FOR i = 1 TO x
FOR j = 1 TO y
IF a(i, j) = 1 THEN LOCATE i, j * 3: PRINT a$
NEXT j, i
FOR i = 1 TO 4: FOR j = 1 TO 2
READ v(i, j)
NEXT j, i: DATA 0,1,1,0,0,-1,-1,0
LOCATE 12: PRINT "Press any key to run": d$ = INPUT$(1)
INPUT "Start I, J = ", x, y
y = y - 1
INPUT "End I, J = ", xe, ye
p = 0: x(p) = x: y(p) = y: i = 0
IF xe <= 0 OR ye <= 0 THEN PRINT "Data Error!": END
IF a(xe, ye) = 1 THEN PRINT "Data Error!": END
PRINT
DO
i = i + 1
IF i <= 4 THEN
x = x(p) + v(i, 1): y = y(p) + v(i, 2)
IF a(x, y) = 0 THEN
p = p + 1: s(p) = i: x(p) = x: y(p) = y
a(x, y) = 2
i = 0
GOSUB 10
END IF
ELSE
GOSUB 10
i = s(p): p = p - 1
END IF
LOOP UNTIL p = 0 OR x = xe AND y = ye
IF p = 0 THEN
PRINT "Not Find"
ELSE
LOCATE 14: PRINT "Start"; 2; ","; 0; "---->";
FOR i = 1 TO p
PRINT x(i); ","; y(i); "---->";
NEXT i
PRINT "Finish"
END IF
END
10 LOCATE x(p), y(p) * 3: FOR k = 1 TO 30000: NEXT
IF i <= 4 THEN PRINT USING "##"; p ELSE PRINT b$
RETURN
[/quote]
此题可以考虑用递归！！[/quote]
递归的思路也是回溯！！！
4 楼
phile [专家分：2310] 发布于 2009-08-17 13:50:00
哈哈，递归比回溯快！
5 楼
天天和和 [专家分：1420] 发布于 2009-08-19 09:43:00
迷宫的程序一般都是使用回溯来做的
6 楼
phile [专家分：2310] 发布于 2009-08-19 12:47:00
高手用递归！
7 楼
gewenbo [专家分：450] 发布于 2009-08-21 14:17:00
[quote]高手用递归！[/quote]
BT![em46]
8 楼
phile [专家分：2310] 发布于 2009-08-23 14:10:00
?
9 楼
天天和和 [专家分：1420] 发布于 2009-08-23 18:10:00
[quote]高手用递归！[/quote]
谁说的啊，我同学那么厉害，都不用递归
10 楼
phile [专家分：2310] 发布于 2009-08-24 13:28:00
递归快呀！
我来回复
您所在位置：