mise à jour des tests

This commit is contained in:
Dimitri Lajou
2025-03-27 14:18:02 +01:00
parent 89abf8f85a
commit eef8242f11
142 changed files with 165 additions and 36 deletions

View File

@@ -0,0 +1,30 @@
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
}