Console Hanoï

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 087 fois - Téléchargée 12 fois

Commenter

Contenu du snippet 

Module Module1
    Dim niv(3) As Short
    Sub Main()
        Dim en As Char
        Dim n As Short
        Console.Write("Donnez le nombre de disques ")
        n = Console.ReadLine
        Console.WriteLine()
        niv(1) = n

        hanoi(n, 1, 2, 3, 1)
        en = Console.ReadLine

    End Sub
    Private Sub hanoi(ByVal n As Short, ByVal de As Short, ByVal a As Short, ByVal par As Short, ByVal Nd As Short)
        If n > 0 Then
            hanoi(n - 1, de, par, a, Nd + 1)
            niv(a) = niv(a) + 1
            Console.WriteLine("Disque N° {0} du niveau {1} de la pile {2} sur la pile {3} au niveau {4}", Nd, niv(de), de, a, niv(a))
            niv(de) = niv(de) - 1
            hanoi(n - 1, par, a, de, Nd + 1)
        End If
    End Sub
End Module

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.