主题：[活动]汉诺塔
神鬼天王
[专家分：30] 发布于 2009-09-18 18:23:00
求汉诺塔的步骤！
回复列表 （共2个回复）
沙发
phile [专家分：2310] 发布于 2009-09-18 18:24:00
DECLARE SUB MOVE (N!, A!, B!, C!)
CLS
INPUT N
CALL MOVE(N, 1, 2, 3)
SUB MOVE (N, A, B, C)
IF N = 1 THEN
PRINT A; "------>"; C
SLEEP .5
ELSE
CALL MOVE(N - 1, A, C, B)
PRINT A; "------>"; C
CALL MOVE(N - 1, B, A, C)
SLEEP .5
END IF
END SUB
板凳
phile [专家分：2310] 发布于 2009-09-18 18:24:00
我用的递归
我来回复
您所在位置：