LOL

////////////////////////////////////////////////////
//Saisir un nom et calcul le nombre de caractères
//		- nom : chaine (Chaine utilisé et retourné au programme)
//		- longueurnon : entier (Nombre de caratère de nom calculé lors de la saisie)
////////////////////////////////////////////////////
Procedure saisieNom(;nom : chaine, longueurnom : entier)
Debut
	Afficher "Saisir un nom : "
	Saisir nom
	longueurnom <- longueur(nom)
Fin saisieNom

////////////////////////////////////////////////////
//Fonction qui détermine si une chaine de caractère est un palyndrome
//		- nom : chaine (Chaine utilisé dans la fonction)
//		- longueurnon : entier (Nombre de caratère de nom calculé lors de la saisie)
////////////////////////////////////////////////////
Fonction estPalyndrome(longueurnom : entier, nom : chaine) Retourne Bool
Debut
	Avec :
		i : entier
		palyndrome : bool
		debut : chaine
		fin : chaine

	longueurnom <- longueurnom - 1
	palyndrome <- vrai
	Pour i allant de 1 à (longueurnom / 2) par pas de 1 faire
		debut <- nom[i]
		fin <- nom[longueurnom - i]
		Si (debut != fin) alors
			palyndrome <- faux
		Fin Si
	Fin Faire
	Retourner palyndrome
Fin palyndrome

////////////////////////////////////////////////////
//Procedure qui permet de mettre une chaine de caractère en majuscule :
//		- nom : chaine (Chaine utilisé dans la fonction puis renvoyé au programme)
//		- longueurnon : entier (Nombre de caratère de nom calculé lors de la saisie)
////////////////////////////////////////////////////
Procedure maj(longueurnom : entier; nom : chaine)
Debut
	Avec :
		i : entier

	Pour i allant de 0 à longueurnom par pas de 1 faire
		Si (nom[i]>='a' Et nom[i]<='z') alors //Sélection des minuscules
			nom[i] <- nom[i]-'a'+'A' //Leur ajoute la valeur correspondante à la différence entre une minuscule et une majuscule
		Fin si
Fin maj

////////////////////////////////////////////////////
//Procedure d'affichage du menu qui affiche le menu
////////////////////////////////////////////////////
Procedure affichageMenu()
Debut
	Afficher "Sélectionner votre option : "
	A la ligne
	Afficher "  1- Afficher le nombre de voyelle"
	A la ligne
	Afficher "  2- Vérifier si c'est un palyndrome"
	A la ligne
	Afficher "  3- Afficher la chaine de caractère en majuscule"
	A la ligne
	Afficher "  4- Quitter"
Fin affichageMenu

////////////////////////////////////////////////////
//Fonction qui calcul le nombre de voyelles et retourne cette valeur en entier (prend en compte la casse) :
//		- nom : chaine (Chaine utilisé dans la fonction puis renvoyé au programme)
//		- longueurnon : entier (Nombre de caratère de nom calculé lors de la saisie)
//		- nbrVoyelle : entier (Nombre calcul de voyelle)
////////////////////////////////////////////////////
Fonction nbrVoyelle(longueurnom : entier, nom: chaine) Retourne Entier
Debut
	Avec :
		i : entier
		nbrVoyelle : entier
		maj(longueurnom; nom)
		nbrVoyelle <- 0
		Pour i allant de 0 à longueurnom par pas de 1 faire
			Si (nom[i]='A' Ou nom[i]='E' Ou nom[i]='I' Ou nom[i]='O' Ou nom[i]='U' Ou nom[i]='Y') alors
				nbrVoyelle <- nbrVoyelle + 1
			Fin si
		Fin faire
	Retourne nbrVoyelle
Fin voyelle



Programme testSurLeNom
Debut
	Avec :
		////////////////////////////////////////////////////
		//Ce programme permet qu'après la saisie d'un nom, exécuter certaines opération :
		//		- compter le nombre de voyelle d'un nom
		//		- vérifier que c'est un palyndrome
		//		- afficher le nom en majuscule
		////////////////////////////////////////////////////
		nom : chaine
		choix : entier
		longueurnom : entier
		k : bool

		Procedure saisieNom(;nom : chaine, longueurnom : entier)
		Fonction nbrVoyelle(nom: chaine) Retourne Entier
		Fonction estPalyndrome(longueurnom : entier, nom : chaine) Retourne Bool
		Procedure maj(longueurnom : entier; nom : chaine)
		Procedure affichageMenu()


	Repeter
		affichageMenu()
		saisir choix
		controler choix : choix>0 Et choix<5
		selon choix faire
			cas default :
				Afficher : "Erreur de sélection d'option"
				A la ligne
			cas 1 : //Calcul du nombre de voyelles et l'affiche
				saisieNom(;nom)
				Afficher "Il y a ", nbrVoyelle(nom), " de voyelles"
			cas 2 : //Vérifie si c'est un palyndrome
				saisieNom(;nom)
				Si (estPalyndrome(nom)) alors
					Afficher nom, " est un palyndrome"
				Sinon
					Afficher nom, " n'est pas un palyndrome"
				Fin si
			cas 3 : //Affiche le nom en majuscule
				saisieNom(;nom)
				maj(;nom)
				afficher nom
			cas 4 :  //Quitte le programme
				afficher "Au revoir"
				A la ligne
	Tant que choix !=4 faire

Fin testSurLeNom