"'O
0
c
:J
0
li)
..--t
0
N
@
.......
J::
O'l
·;::::
>0.
0
u
Chapitre l 0 • Travaux pratiques
240
Fonction appartient(x: tout type possible, ens: liste) : booléen
Variable locale : k (entier)
Début
Pour k de 0 à longueur(ens)-1 Faire
Si x==ens[k] Alors
1
Retourner(VRAI)
Fin Si
Fin Pour
Retourner(FAUX)
Fin Fonction
Fonction inter(ens 1 ,ens2: listes) : liste
Variables locales : k (entier), res (liste)
Début
res f - []
Pour k de 0àlongueur(ens1 )-1 Faire
Si appartient(ens 1 [k],ens2) Alors
1
Ajouter ens 1 [k] à res
Fin Si
Fin Pour
Retourner(res)
Fin Fonction
Fonction union(ensl ,ens2 : listes) : liste
Variables locales : k (entier), res (liste)
Début
res f - ens2
Pour k de 0àlongueur(ens1 )-1 Faire
Si non(appartient(ens 1 [k],ens2)) Alors
1
Ajouter ens 1 [k] à res
Fin Si
Fin Pour
Retourner(res)
Fin Fonction
.. .. .. . ... . ... . .. .. .. . . Partie principale
Début
Afficher "Saisir un premier ensemble : "
Saisir en semble 1
TantQue non(ver(ensemble 1 )) Faire
1
Afficher "Attention ! Sai sir un premier en semble (sans doublon) : "
Saisir ensemble l
FinTantQue
Afficher" Saisir un second ensemble : "
Saisir ense mble2
TantQue non(ver(ensemble2)) Faire
1
Afficher "Attention ! Saisir un second ensemble (sans doublon) : "
Saisir ensemble2
FinTantQue
Afficher "L'intersection de ces ensembles est : ",inter(ensemblel ,ensemble2)
Afficher "La réunion de ces ens embles est : ",union(ensemble 1 ,ensemble2)
Fin