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
- Le fichier contient un tableau affichant la taille des populations des 419 communes de l’ain. triez le tableau pour que les villes les plus peuplées soient en haut. quel mot est formé par les 9 premières lettres de la colonne indice ? - Guide
- Télécharger film d'action gratuitement et rapidement - Télécharger - TV & Vidéo
- Remplacez le mot eget par le mot désire dans tout le texte. combien de caractères contient le document suite à cette modification (en incluant les espaces) ? ✓ - Forum Word
- Mot de passe administrateur freebox ✓ - Forum Freebox
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 ' '}
