{ Tours de Hanoi }

{ Necessite les procedures }


PROC PLATEAU(X) [
  IF X=0 [ PRINT "de gauche" ] :
  IF X=1 [ PRINT "du milieu" ] :
  IF X=2 [ PRINT "de droite" ]
] :

PROC HANOI(A,B,C,N) [
  IF N>0 [
    HANOI(A,C,B,N-1) :
    PRINT "Deplacer le plateau " : PLATEAU(A) :
    PRINT " sur le plateau " : PLATEAU(C) : PRINT "\n" :
    HANOI(B,A,C,N-1)
  ]
] :

PROC TOUTHANOI(X) [
  PRINT "Jeu des tours de Hanoi avec ",X," plateaux\n" :
  HANOI(0,1,2,X) :
  PRINT "Fin\n\n"
] :

FOR I=1 TO 5 [ TOUTHANOI(I) ]