Algorithme (Saisie de texte)
Fermé
pseudo0
Messages postés
1
Date d'inscription
mardi 13 novembre 2012
Statut
Membre
Dernière intervention
13 novembre 2012
-
13 nov. 2012 à 00:30
Heliotte Messages postés 1491 Date d'inscription vendredi 26 octobre 2012 Statut Membre Dernière intervention 28 janvier 2013 - 13 nov. 2012 à 09:48
Heliotte Messages postés 1491 Date d'inscription vendredi 26 octobre 2012 Statut Membre Dernière intervention 28 janvier 2013 - 13 nov. 2012 à 09:48
A voir également:
- Algorithme (Saisie de texte)
- Corinne copie un texte sur le web et le colle dans un document avec l'option "texte non formaté" (aussi appelée "texte sans mise en forme"). qu'est-ce qui est conservé ? - Forum Bureautique
- Excel cellule couleur si condition texte - Guide
- Mettre un texte en majuscule - Guide
- Texte annonce hôtesse de l'air décollage ✓ - Forum Réseaux sociaux
- Deflouter texte - Forum Logiciels
1 réponse
Heliotte
Messages postés
1491
Date d'inscription
vendredi 26 octobre 2012
Statut
Membre
Dernière intervention
28 janvier 2013
92
13 nov. 2012 à 09:48
13 nov. 2012 à 09:48
ChaineSaisie = ":;,Bonjour la France:;,$";
ChaineSaisie = Trim(ChaineSaisie);
ChaineSeparateurs = " ,.;:";
NombreMots = 0;
Element = 0;
Continue = VRAI;
MotEnCours = FAUX;
TANT QUE Continue FAIRE
SI (ChaineSaisie(Element) == "$") ALORS
Continue = FAUX;
SINON
POUR (i = 0; i < TAILLE(ChaineSeparateurs); I++)
SI (ChaineSaisie(Element) == ChaineSeparateurs(I)) ALORS
SI (MotEnCours ) ALORS
NombreMots++;
SINON
MotEnCours = FAUX;
FIN SI
SINON
MotEnCours = VRAI;
FIN SI
FIN POUR
FIN SI
Element++;
FIN TANT QUE
AFFICHE "La chaîne saisie contient " + NombreMots + " mots.";
Juste le principe .. A toi de le vérifier !
ChaineSaisie = Trim(ChaineSaisie);
ChaineSeparateurs = " ,.;:";
NombreMots = 0;
Element = 0;
Continue = VRAI;
MotEnCours = FAUX;
TANT QUE Continue FAIRE
SI (ChaineSaisie(Element) == "$") ALORS
Continue = FAUX;
SINON
POUR (i = 0; i < TAILLE(ChaineSeparateurs); I++)
SI (ChaineSaisie(Element) == ChaineSeparateurs(I)) ALORS
SI (MotEnCours ) ALORS
NombreMots++;
SINON
MotEnCours = FAUX;
FIN SI
SINON
MotEnCours = VRAI;
FIN SI
FIN POUR
FIN SI
Element++;
FIN TANT QUE
AFFICHE "La chaîne saisie contient " + NombreMots + " mots.";
Juste le principe .. A toi de le vérifier !
