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
- Télécharger film d'action gratuitement et rapidement - Télécharger - TV & Vidéo
- Telecharger fl studio 20 pour pc gratuit complet - Télécharger - Édition & Montage
- Mot de passe - Guide
- Comment trouver le mot de passe wifi sur son téléphone - 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 ' '}
