# entierdecimale # Programme entierdecimale-src (Declarer NombreUtilisateur De_type "nombre") (Declarer ControleNombreUtilisateur De_type "nombre") (Declarer AjoutNombreUtilisateur De_type "nombre") (Declarer TypeDeNombre De_type "nombre") (Affecter_a NombreUtilisateur (Demander_un_nombre)) (Affecter_a ControleNombreUtilisateur (+ 0)) (Affecter_a AjoutNombreUtilisateur (+ NombreUtilisateur 1)) (Affecter_a TypeDeNombre (+ 0)) (Si (=/ TypeDeNombre 1) Alors (Tant_que (=/ ControleNombreUtilisateur NombreUtilisateur) Faire (Si (< ControleNombreUtilisateur AjoutNombreUtilisateur) Alors (Affecter_a ControleNombreUtilisateur (+ ControleNombreUtilisateur 1)) (Si (> ControleNombreUtilisateur AjoutNombreUtilisateur) Alors (Afficher "Nombre Composé")) ) ) ) (Afficher "Nombre Entier")