Aide pascal
Mohti
Messages postés
155
Statut
Membre
-
Mohti Messages postés 155 Statut Membre -
Mohti Messages postés 155 Statut Membre -
Bonjour,
Voila je voudrai savoir si je pourrai avoir de l'aide.
Je dois faire un programme en pascal qui permet d'ecrire un texte (avec ponctuation). et qui ensuite arrange le tout. je veux dire par la :par exemple il laisse un espace apres un point ensuite qu'il mette une majuscule. mais je n'arrive pas a savoir par ou commencer . serait-il possible d'avoir un coup de pouce???
merci d'avance.
Voila je voudrai savoir si je pourrai avoir de l'aide.
Je dois faire un programme en pascal qui permet d'ecrire un texte (avec ponctuation). et qui ensuite arrange le tout. je veux dire par la :par exemple il laisse un espace apres un point ensuite qu'il mette une majuscule. mais je n'arrive pas a savoir par ou commencer . serait-il possible d'avoir un coup de pouce???
merci d'avance.
A voir également:
- Aide pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Le protocole assure que la communication entre l'ordinateur de pascal et le serveur de visiodoct est car les informations seront avant d'être envoyées. - Forum Pascal
- Pascal ✓ - Forum Pascal
4 réponses
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.
@+
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 .
