31 lines
538 B
Plaintext
31 lines
538 B
Plaintext
PROTO INT hanoi(n,delatour,alatour,parlatour)
|
|
|
|
FUNC VOID main()
|
|
{
|
|
INT ndisque,a
|
|
|
|
ndisque := 3
|
|
PRINT "\n Hanoi avec ", ndisque, " disques\n\n"
|
|
a := hanoi(ndisque,1,3,2)
|
|
|
|
ndisque := 4
|
|
PRINT "\n\nHanoi avec ", ndisque, " disques\n\n"
|
|
a := hanoi(ndisque,1,3,2)
|
|
}
|
|
|
|
|
|
FUNC INT hanoi(n,delatour,alatour,parlatour)
|
|
{
|
|
INT b
|
|
IF n
|
|
THEN
|
|
{
|
|
b := hanoi( n-1, delatour, parlatour, alatour )
|
|
PRINT "Deplacer un disque de ",delatour," a ",alatour,"\n"
|
|
b := hanoi( n-1, parlatour, alatour, delatour )
|
|
}
|
|
FI
|
|
RETURN 1
|
|
}
|
|
|