Programme pour supprimer les mots contenant la lettre " i "
Lerikal
-
Chekchak Messages postés 39 Statut Membre -
Chekchak Messages postés 39 Statut Membre -
Bonjour, je suis actuellement en apprentissage hier dans le code Pascal
Je voudrai élaborer un programe qui me permet de supprimer tout les mots contenant la lettre "i" en cliquant sur un bouton
Pouvez-vous m'aidez s'il vous plaît
Je voudrai élaborer un programe qui me permet de supprimer tout les mots contenant la lettre "i" en cliquant sur un bouton
Pouvez-vous m'aidez s'il vous plaît
procedure TFPrincipal.btnDisparitionClick(Sender: TObject);
begin
//
end;
A voir également:
- Le programme à télécharger ci-dessous contient des erreurs et n'est pas complet. corrigez-le et exécutez-le. quel mot de dix lettres est obtenu ?
- Télécharger clavier arabe - Télécharger - Divers Web & Internet
- Telecharger fl studio 20 pour pc gratuit complet - Télécharger - Édition & Montage
- Télécharger film d'action gratuitement et rapidement - Télécharger - TV & Vidéo
- Comment trouver le mot de passe wifi sur son téléphone - Guide
- Identifiant et mot de passe - Guide
1 réponse
i:=1;
while(i<n) do
begin
while (ch[i]=' ')do
begin
i:=i+1;
end;
e:=0; cpt:=0;
while(ch[i]<>' ')do
begin
if(ch[i]='i') do
begin
e:=1;
i:=i+1;
end;
cpt:=cpt+1;
end;
if (e=1) do
begin
j:=i-cpt;
while(j<i)do
begin
ch[j]:=' '; j:=j+1;
end;
end;
end;
{ je les ai pas supprimé mais je les ai remplacé par des espaces ' '}
while(i<n) do
begin
while (ch[i]=' ')do
begin
i:=i+1;
end;
e:=0; cpt:=0;
while(ch[i]<>' ')do
begin
if(ch[i]='i') do
begin
e:=1;
i:=i+1;
end;
cpt:=cpt+1;
end;
if (e=1) do
begin
j:=i-cpt;
while(j<i)do
begin
ch[j]:=' '; j:=j+1;
end;
end;
end;
{ je les ai pas supprimé mais je les ai remplacé par des espaces ' '}
