Towers of Hanoi: Difference between revisions
Towers of Hanoi en True BASIC
(Added Quackery.) |
(Towers of Hanoi en True BASIC) |
||
Line 5,894:
] ifTrue
] is hanoi</lang>
=={{header|True BASIC}}==
{{trans|FreeBASIC}}
<lang basic>
DECLARE SUB hanoi
SUB hanoi(n, desde , hasta, via)
IF n > 0 THEN
CALL hanoi(n - 1, desde, via, hasta)
PRINT "Mover disco"; n; "desde posición"; desde; "hasta posición"; hasta
CALL hanoi(n - 1, via, hasta, desde)
END IF
END SUB
PRINT "Tres discos"
PRINT
CALL hanoi(3, 1, 2, 3)
PRINT
PRINT "Cuatro discos"
PRINT
CALL hanoi(4, 1, 2, 3)
PRINT
PRINT "Pulsa un tecla para salir"
END
</lang>
=={{header|TSE SAL}}==
| |||