Resolución gráfica:
Código:
' Gambas class file
Public Sub _new()
End
Public Sub Form_Open()
End
Public Sub ButtonSolucion_Click()
resuelve(ValueBoxFichas.Value, 1, 3, 2)
End
Public Sub resuelve(n As Integer, inicial As Integer, final As Integer, libre As Integer)
If n = 1 Then
TextAreaSolucion.text &= "Mover disco superior de aguja " & Str$(inicial) & ", a " & Str$(final) & gb.Cr
Else
resuelve(n - 1, inicial, libre, final)
TextAreaSolucion.text &= "Mover disco superior de aguja " & Str$(inicial) & ", a " & Str$(final) & gb.Cr
resuelve(n - 1, libre, final, inicial)
Endif
End
Descarga del código completo:
descarga
Nota:
Ejemplo extraido del libro:
Introducción a la programación con Python
No hay comentarios:
Publicar un comentario