indice: Entier;
 compteur: Entier;
 resultat: Liste personne;
 reseau: liste personne;
 taille : entier;
 nom : char;
 prenom : char;
 
 indice = 0;
 compteur = 0;
 taille = taille du reseau;
 
 Tant que (indice < taille) faire
	Si (nom == reseau[indice].nom) Et (prenom == reseau[indice].prenom) faire
		resultat[0] = reseau[indice];
		compteur = 1;
		Tant que (compteur < taille) Faire
			resultat = NULL;
			compteur ++;
		Fin Tant que
		retourner resultat;
	Fin Si
	Si (nom == reseau[indice].nom) Ou (prenom == reseau[indice].prenom) faire
		resultat[compteur] = reseau[indice];
		compteur ++;
	Fin Si
	indice ++;
Fin Tant que
retourner resultat;