Aide pascal
Fermé
Mohti
Messages postés
130
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
13 mars 2019
-
14 oct. 2009 à 17:11
Mohti Messages postés 130 Date d'inscription jeudi 31 juillet 2008 Statut Membre Dernière intervention 13 mars 2019 - 14 oct. 2009 à 22:16
Mohti Messages postés 130 Date d'inscription jeudi 31 juillet 2008 Statut Membre Dernière intervention 13 mars 2019 - 14 oct. 2009 à 22:16
A voir également:
- Aide pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Uses crt pascal - Forum Pascal
- Pascal veut modifier une photo mais c’est la visionneuse d’images qui l’ouvre. que doit-il choisir pour l’ouvrir avec son logiciel de traitement d’image ? - Forum Windows
- Dev-pascal - Télécharger - Édition & Programmation
4 réponses
nabil07
Messages postés
140
Date d'inscription
vendredi 14 septembre 2007
Statut
Membre
Dernière intervention
10 avril 2014
63
14 oct. 2009 à 17:36
14 oct. 2009 à 17:36
Bonjour,
tu peux commencer par les expression régulières. ca peux t'aider à comprendre ton problème: savoir c'est quoi une phrase ( elle commence par une majuscule et ce termine par un point.) .... et d'autres choses de ce genre.
@+
tu peux commencer par les expression régulières. ca peux t'aider à comprendre ton problème: savoir c'est quoi une phrase ( elle commence par une majuscule et ce termine par un point.) .... et d'autres choses de ce genre.
@+
Mohti
Messages postés
130
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
13 mars 2019
5
14 oct. 2009 à 17:54
14 oct. 2009 à 17:54
j'essaye deja d'integrer sa a mon programme. : sa sert a supprimer les espace inutiles. :
Program supespacesuperflu;
Function let(s:string; i:word):boolean;
Var prec:boolean; (*prec=true si c'est un espace qui précède*)
Begin
If (i=1) then prec:=true;
If (s[i]<>' ') then begin prec:=false; let:=true; end else
If (s[i]=' ') then
Begin
If (prec=true) then
begin let:=false; prec:=true; end
else
begin let:=true; prec:=true; end;
End;
End;
Var s,d :string;
i:word;
Begin
d:='';
i:=1;
WriteLn('Entrez votre phrase : ');
ReadLn(s);
While (i<=length(s)) do
Begin
If (let(s,i)=true) then d:=d+s[i];
i:=i+1;
End;
WriteLn(d);
ReadLn;
End.
Mais pour le reste je ne sais pas comment faire .
Program supespacesuperflu;
Function let(s:string; i:word):boolean;
Var prec:boolean; (*prec=true si c'est un espace qui précède*)
Begin
If (i=1) then prec:=true;
If (s[i]<>' ') then begin prec:=false; let:=true; end else
If (s[i]=' ') then
Begin
If (prec=true) then
begin let:=false; prec:=true; end
else
begin let:=true; prec:=true; end;
End;
End;
Var s,d :string;
i:word;
Begin
d:='';
i:=1;
WriteLn('Entrez votre phrase : ');
ReadLn(s);
While (i<=length(s)) do
Begin
If (let(s,i)=true) then d:=d+s[i];
i:=i+1;
End;
WriteLn(d);
ReadLn;
End.
Mais pour le reste je ne sais pas comment faire .
Mohti
Messages postés
130
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
13 mars 2019
5
14 oct. 2009 à 18:54
14 oct. 2009 à 18:54
ou a la limite me montrer comment on fait pour que la lettre qui suit un point soit en majuscule. mercii sa m'aiderai vraiment.
Mohti
Messages postés
130
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
13 mars 2019
5
14 oct. 2009 à 22:16
14 oct. 2009 à 22:16
?????