Discussion :

[allomona]

quelqu'un peut m'aider à élaborer cet algorithme????

Ecrire un sous programme S_Chaine qui retourne vrai si une sous-chaine Sch est contenu dans une chaine Ch, faux sinon

[seeme]

Bonjour,

Tu as déjà fait quelque chose?
Sur quoi tu bloques?

Le principe est assez simple.. Une chaine contient une sous chaine si elle contient le premier caractère de la sous chaine, suivit du second, suivit du troisième....

[allomona]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Fonction est_present(mot,texte : chaînes de caractères; i:Entier) : Booléen
Var j,m : Entiers
pareil : Booleen
Debut
	j <--0;
	pareil <--  vrai;
	m<--   long(mot);
	pour (i de 0 à n-m-1) faire
		TantQue (pareil ET j<m) Faire
			Si (mot[j]=texte[i+j])
			Alors j <-- j+1;
			Sinon pareil <-- faux;
			FinSi
		Fin TantQue
	fin pour
	Renvoyer(pareil);
Fin

j'ai trouvé ce code merci bien. J'avais des problémes pour trouver les conditions d'arrêt et le choix des boucles

[Motin]

Bonjour allomona, il me semble qu'il y a de petites corrections à faire pour que ton algo puisse fonctionner:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Fonction est_present(mot,texte : chaînes de caractères; i:Entier) : Booléen
Var j,m : Entiers
pareil : Booleen
Debut
	j <--0;
	pareil <--  vrai;
	m<--   long(mot);
	n<--   long(texte); // Juste pour préciser ce que représente la variable n ;)

// n-m+1 et non pas n-m-1
	pour (i de 0 à n-m+1) faire
		pareil <-- true;// Lorsque tu relances ta boucle, tu dois reinitialiser ton booléen, sinon, il reste à faux jusque à la fin de la boucle "Pour"
		TantQue (pareil ET j<m) Faire
			Si (mot[j]=texte[i+j])
			Alors j <-- j+1;
			Sinon pareil <-- faux;
			FinSi
		Fin TantQue

/* Si tu passes la boucle, soit ta variable pareil est à "faux", soit tu as trouvé ton mot entièrement, tu dois quitter la boucle, sinon, ta variable "pareil" revient à false par la suite */
		Si (pareil) Faire
		Alors i <-- n-m+1;
		FinSi
		j <-- 0;
fin pour
	Renvoyer(pareil);
Fin

j'ai trouvé ce code merci bien. J'avais des problémes pour trouver les conditions d'arrêt et le choix des boucles

[allomona]

vous avez raison merci bien pour la correction je vous suis reconnaissante