Bonjour,
Je veux savoir votre avis sur cette solution itérative pour ajouter une valeur dans un arbre binaire de recherche :

Procédure Ajouter(x:entier; var b:Arbre)
variables A:Arbre
Début
Si(B=nil) alors //arbre vide
Allouer(B)
B^. val<--x
B^.gauche<--nil
B^.droite<--nil
sinon
A<--B //A : pointeur pour chercher l'emplacement à insérer
Tantque (A#nil) faire
Si(x<A^.val) alors
A<--A^.gauche
Sinon Si(x>A^.val) alors
A<--A^.droite
FinSi
Fin TantQue
FinSi
// on obtient le pointeur dans le bon emplacement pour effectuer l'insertion

Allouer(A)
A^. val<--x
A^.gauche<--nil
A^.droite<--nil
Fin

Merci de me la corriger s'il y a une erreur.