Hallo zusammen
Ich möchte als kleine übung in einem Excel VBA Makro die Türme von Hanoi Programieren,
habe aber bei dem Algorythmus ein problem welches ich im nachfolgenden quelltext als kommentar eingefügt habe
Ich möchte als kleine übung in einem Excel VBA Makro die Türme von Hanoi Programieren,
habe aber bei dem Algorythmus ein problem welches ich im nachfolgenden quelltext als kommentar eingefügt habe
Code:
Sub Hanoi (ByVal Von%, ByVal Nach%, ByVal Hilfe% ByVal Anzahl)
If Anzahl = 1 Then
'Verschiebe eine Scheibe von Von nach Nach
else
Hanoi Von, Hilfe, Nach, Anzahl -1
Hanoi Von, Nach, Hilfe, 1
Hanoi Hilfe, Nach, Von, Anzahl -1
End if
End Sub