[Fonction] Palindrome

Etant donner un tableau de n caractères contient un mot, une fonction qui permet de dire si ce mot est un Palindrome ou non:


Fonction Palindrome(T: tab[1..n]: caractère): booléen;

Var
	i: entier;
	résultat: booléen;
	
Debut
	
	résultat := Vrai;
	Pour i := 1 à n Faire
		Si(T[i] <> T[n+1-i]) Alors
			résultat := Faux;
			i := n + 1;
		FinSi
	
	Renvoyer résultat;
	
Fin

Ou bien:


Fonction Palindrome(T: tab[1..n]: caractère): booléen;

Var
	i, j: entier;
	résultat: booléen;
	
Debut
	i := 1;
	j := n;
	résultat := Vrai;
	TantQue ((résultat = Vrai) Et (i < j)) Faire
		Si(T[i] = T[j]) Alors
			résultat = Vrai;
			i = i + 1;
			j = j - 1;
		Sinon
			résultat := Faux;
		FinSi
	FinTantQue
	
	Renvoyer résultat;
	
Fin

2 commentaires

  1. zerrouati hocine · · Répondre

    dans la premiere function, noremalement :Si(T[i] T[n+1-i]) au lieu de Si(T[i] T[i+1-i]) Alors, le probleme est dans T[i+1-i] ???

    1. Merci pour la correction,
      erreur de frape🙂

Laisser des commentaires:

Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

Logo WordPress.com

Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

Image Twitter

Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

Photo Facebook

Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

Photo Google+

Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

Connexion à %s

%d blogueurs aiment cette page :