dagandara

Si eres nuevo por aquí y utilizas algún lector de feeds tal vez te interesa suscribirte a nuestro feed RSS. Muchas gracias por la visita.

6575 dias, 216 meses…18 años

Pues eso, no es un solo año más…

Sub p_hanoi(ByVal num As Integer, ByVal origen As String, ByVal destino As String, ByVal auxiliar As String, ByRef texto As String, ByRef num_mov As Integer)
If num > 0 Then
p_hanoi(num - 1, origen, auxiliar, destino, texto, num_mov)
texto = texto & “Muevo “ & num & ” de “ & origen & ” a “ & destino & vbCr
num_mov = num_mov + 1
p_hanoi(num - 1, auxiliar, destino, origen, texto, num_mov)
End If
End Sub

Pues eso, el día de mi cumpleaños (4), de regalo examen de Programación…