Outils pour utilisateurs

Outils du site


tsnmn:liste1

(!!! “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)

(Declarer listenombres Detype “liste”) (Declarer i Detype “nombre”) (Affectera listenombres (Liste -3 1 17 -12 50 -1 0 31 -17 -2 6)) (Afficher listenombres) (Affectera i 1) (Tantque (⇐ i (Longueur listenombres)) Faire (Si (< (Nieme listenombres i) 0) Alors (Affectera listenombres 0 Enposition i) ) (Affectera i (+ i 1))) (Afficher liste_nombres)

tsnmn/liste1.txt · Dernière modification: 2018/12/17 09:00 par 195.221.62.1