Galerie MicroAlg

(Declarer nbre Detype “nombre”) (Declarer n Detype “nombre”) (Declarer max Detype “nombre”) (Declarer g Detype “nombre”) (Affectera g 0) (Affectera n 0) (Affectera max 0) (Affectera nbre (Nombre (Demander))) (Affectera g nbre) (Afficher nbre) (Tantque ( =/ 1 nbre) Faire

(Si (= 1 (% nbre 2))     
 Alors
    (Affecter_a nbre (+(* nbre 3)1))
    (Affecter_a n (+ n 1)) 
    (Si ( > nbre max)
    Alors
    (Affecter_a max nbre)
    )            
         Sinon
    (Affecter_a nbre (/ nbre 2))  
    (Affecter_a n (+ n 1))               
)
  

) (Afficher “Nombre de tour :”) (Afficher n) (Afficher “Valeur max :”) (Afficher max)