[Chaines de caractèrs] Inclusion d’une chaine de caractères dans l’autre

Un algorithme qui permet de dire si une chaine de caractère est inclue dans l’autre au non


Var
	s1, s2: string;
	p1, p2: entier;

Debut

	Ecrire("Taper les deux chaines de caractères: ");
	Lire(s1, s2);

	p1 := pos(s1, s2);
	p2 := pos(s2, s1);

	Si (p1 <> 0) OU (p2 <> 0) Alors
		Ecrire("Il y a une inclusion...");
	Sinon
		Ecrire("Pas d'inclusion...");
	FinSi
Fin

One comment

  1. pourrais je avoir une solution sans le  » pos » !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 :