[Fonctions] Génerer un mot miroir d’une chaine de caractères

Une fonction qui permet de génerer un mot miroir d’une chaine de caractères

Fonction Miroir(s: string): string;

Var
	s1: string;
	i, j: entier;

Debut

	j := 1;
	Pour i := length(s) à 1 pas (-1) Faire
		s1[j] := s[i];
		j := j + 1;
	FinPour

	Miroir := s1;

Fin;

2 commentaires

  1. merci

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 :