Galerie MicroAlg

“valeur absolue une variable” (Exemplesde Valeurabsolue

(Liste
  (? 2) 2
  (? 1) 1
  (? 0) 0
  (? -1) 1
  (? -2) 2
))

(Definir (Valeur_absolue x) (Si (> x 0) Alors (Retourner ( * 1 x)) Sinon (Retourner (* -1 x)) ) )

(Tester Valeur_absolue)

(Exemplesde Pair (Liste (? 1) Faux (? 2) Vrai (? -1) Faux (? -2) Vrai )) (Definir (Pair x) (Tantque (>= x 2) Faire (Affecter_a x (- x 2)) ) (Si (= x 0) Alors (Retourner Vrai) Sinon (Retourner Faux ) ) ) (Tester Pair)

a tester (Tantque (⇐ x 2) Faire (Affectera x(+ x 2) ) (Si (= x 0) Alors (Retourner Vrai) Sinon (Retourner Faux) )