Exemple d'une procédure récursive
Voici un exemple de programme d’un jeu simple de lettres :
NombreEssai=3
Pour devinlettre
essai=LireTexte "devinez une lettre entre a
et z"
Si essai=="e"
[
Msg "Bravo!"
Stop
]
NombreEssai=NombreEssai-1
Si NombreEssai==0
[
Msg "Nombre d'essai = 0"
Stop
]
Msg("Essayer encore (nombre d'essai restant ="+Txt(NombreEssai)+")")
devinlettre
Fin
devinlettre
