Galerie MicroAlg

**Ceci est une ancienne révision du document !**

(!!! “Algo mystère n°2”) (Declarer listefruits Detype “liste”) (Declarer varmystere Detype “texte”) (Declarer i De_type “nombre”)

(Affectera listefruits (Liste “pomme” “poire” “banane” “kiwi”)) (Afficher “Voici une liste de fruits :”) (Afficher listefruits) (Affectera varmystere “”) (Affectera i 1) (Tantque (⇐ i (Longueur listefruits)) Faire

  (Affecter_a var_mystere (Concatener var_mystere (Nieme liste_fruits i)" "))
  (Affecter_a i (+ i 1))

) (Afficher var_mystere) (!!! “Fin algo mystère n°2”)

(!!! “Algo copie”) (Declarer listenombres copie Detype “liste”) (Declarer i De_type “nombre”)

(Affectera listenombres (Liste -3 1 17 -12 50 -1 0 31 -17 -2 6)) (Affectera copie (Liste)) (Afficher copie) (Affectera i 1) (Tantque (⇐ i (Longueur listenombres)) Faire

  (Si (>= (Nieme liste_nombres i)0)
  Alors 
 
  (Ajouter_a copie (Nieme liste_nombres i)))
  (Affecter_a i (+ i 1))

) (Afficher copie) (!!! “Fin algo copie”)