Discussion :

[achrefchouchou]

Bonne soirée à tous

J'ai un exercice de programmation en Turbo Pascal que je n'ai pas compris s.v.p.
Vous pouvez m'aider ?
L'exercice c'est :

Ecrire une analyse qui permet de supprimer la redondance des caractères dans un texte non vide puis l'affiche.

Exemple :

ch1: cite protection de la nature 3100 Kairouan.
ch2: cite prondlau310k.

Aidez-moi svp

[droggo]

Kai,

Manifestement, il faut supprimer tous les caractères en plusieurs exemplaires, pour n'en garder qu'un, tout en conservant l'ordre d'origine pour les caractères restant.

À toi de jouer.

[darrylsite]

Salut achre... (choisisez au moins des pseudo facile à retenir )

Tu peux écrire une procédure insererCaractere( c: char; var chaine: string) qui insère le caractère c dans la chaine si cette dernière ne contient pas une occurrence (encore un mot barbare) de ce caractère.
Ensuite, il te suffira de faire un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
nouvelleChaine<-''
pour i de 1 à longeurDeLaChaine(chaine)
 insererCaractere(chaine[i], nouvelleChaine)
finPour

je crois que je t' ai tout donné. A toi l' honneur de coder maintenant.

[marwa_rades]

c'est simple tu fais deux boucle for la première parcourt le texte jusqu'à la fin caractère par caractère et suivant le caractère courant tu fait une autre boucle a chaque fois ou tu trouve ce caractère tu fais un décalage a gauche de tout le reste de la chaine

[Med_Farouk]

Voila la solution ami :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
pour i de 1 a long(ch) faire
 pour j de 1 a long(ch) faire
  si ch[i]=ch[j] alors efface(ch,j,1)
  fin si
 fin pour
fin pour

[krachik]

Bonjour et bienvenue

Med_Farou , la solution que tu proposes toi même tu as essayer de le "derouler" pour voir il est loin de faire ce qu'on dit:

Avec cet algo prends juste une chaine "Pascal"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
pour i de 1 a long(ch) faire
 pour j de 1 a long(ch) faire
  si ch[i]=ch[j] alors efface(ch,j,1)
  fin si
 fin pour
fin pour

pour i=1 et j=1 ch[i]='P' et ch[j]='P' alors ou supprime le P selon ton algo c'est mal parti . Sachant que l'algorithme est faux avec ce genre de boucle si tu as un texte de plus 5 ligne a l'entrée par exemple c'est aussi mal barré

Cordialement

[droggo]

Jai,

Voila la solution ami :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
pour i de 1 a long(ch) faire
 pour j de 1 a long(ch) faire
  si ch[i]=ch[j] alors efface(ch,j,1)
  fin si
 fin pour
fin pour

C'est faux.

[anisagrebi]

Code X :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
pour i de 1 a long(ch)-1 faire
 pour j de i+1 a long(ch) faire
  si ch[i]=ch[j] alors efface(ch,j,1)
  fin si
 fin pour
fin pour