CodeS-SourceS
Rechercher un code, un tuto, une réponse

Console Hanoï

Soyez le premier à donner votre avis sur cette source.

Snippet vu 1 344 fois

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

Ajouter un commentaire

Commentaires

Donnez votre avis

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.