TRAVAUX DIRIGE D’ALGORITHME ET PRIGRAMMATION EN PASCAL
EXEXRCICE 1 : Comptage de mots
1. Exposé du problème.
Le problème que pose cet exercice et de prendre un texte ou un certain nombre de mot et de compter le nombre de mot contenu dans un texte tout en sachant que chaque mot se termine par un espace vide, l’apostrophe, les deux points, la virgule.
Exemple
L’amitié n’est pas transmissible : une fonction amie de la classe mère ne sera amie que de la classe fille que si elle a été déclarée amie dans la classe fille.
Votre texte comporte 32 mots.

2. Analyse
Analyse fait, nous constatons qu’il est d’une importance capital d’accéder au tout le texte ligne par ligne. Ainsi pour réaliser le comptage nous allons rechercher la première séquence de caractère diffèrent d’un séparateur, ensuite la première séquence de caractère égale a un séparateur pour marquer la fin d’un mot.
Notons tout de même que nous considérons comme séparateur la fin de ligne, l’espace, la ponctuation ( : . , ; ? !), les parenthèses ( ),les guillemets, l’apostrophe (‘).
3. Programme
Program comptage_mots ;
Fonction separa( carac : char) : boolean
Begin
Char separa[12]={‘writeln‘,
‘ ‘,
‘ ,’, ‘ ;’ ;’ :’,’ ?’,’ !’,’.’,
‘(‘,’)’,
‘ ‘’ ’,’\’,}
Var nsepara =12,
Travaux Dirigés traité par Modeste Mimodje

Page 0

TRAVAUX DIRIGE D’ALGORITHME ET PRIGRAMMATION EN PASCAL
I = 0 :integer
While(carac !=separa[i] && i++˂nsepara-1 ;
If(i == nsep) return (0) ;
Else return(1) end begin
Var separa,carac,caracpre : char nbrmot,-0,mot : integer
Separa=’ ’ ;
-0 = FAUX ; mot = FAUX ; nbrmots = 0 ; writeln(‘’Veiller saisir votre texte en le terminant par une - 0 ‘’) ; while( !-0) begin if(separa=’writeln‘) begin if(mot) begin nbrmot++ ; mot = FAUX ; end else begin mot = VRAI ; end if(carac==’writeln’ && caracpre==’writeln’) mot=VRAI, caracpre=carac ; end Writeln(‘’Votre texte comporte ‘’,nbrmot’’mot’’) ; end Travaux Dirigés traité par Modeste Mimodje

Page 1

TRAVAUX DIRIGE D’ALGORITHME ET PRIGRAMMATION EN PASCAL
4.