|
Written by Administrator
|
|
Monday, 22 December 2008 16:29 |
Source :M. Zouari Lazhar, Lycée El Omrane-El-Aala, année 06/07
On désire programmer la commande Rechercher et remplacer du menu Edition d'un logiciel de traitement de texte, qui,
en fournissant le texte, un mot1 et un mot2, permet de remplacer toute occurrence de mot1 par mot2 dans texte.
Exemple :
Soit le texte suivant : "Les structures conditionnelles sont simples à comprendre. L'emploi des structures
conditionnelles rend la programmation plus intéressante. "
Soit mot1 = "conditionnelles"
Soit mot2 = "itératives"
Le programme doit afficher : ËLes structures itératives sont simples à comprendre. L'emploi des structures itératives
rend la programmation plus intéressante. Ë
Correction :
En Pascal :
Program rechercher_remplacer;
Uses WinCrt;
Var
texte,mot1,mot2:string;
p,l1:integer;
Begin
Writeln('Tapez votre texte');
Readln(texte);
Writeln('Tapez le mot rechercher');
Readln(mot1);
Writeln('Tapez le mot à remplacer');
Readln(mot2);
p:=pos(mot1,texte);
l1:=length(mot1);
While p <> 0 Do
Begin
Delete(texte,p,l1);
Insert(mot2,texte,p);
p:=pos(mot1,texte);
End;
Writeln('Texte après modIfication: ',texte);
End.
|
Exercices 
