Problème avec le dernier élément du tableau

il faut afficher les séries dans T (tableau de 14 entier) en précisant l’élément qui se répète et la longueur de la série
exemple:
T : 2 2 4 4 4 3 9 9 9 9 9 1 1 3
alors l'algo affiche
{2,2}, {4,3}, {3}, {9,5}, {1,2}, {3}
j'ai écrit l'algo suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

long = 1 Pour i de 2 a 14 faire si t[i] = t[i-1] alors long = long +1 sinon si long=1 alors ecrire('{', t[i-1], '}') sinon ecrire('{', t[i-1],long, '}') fin si long = 1 fin si Fin pour

---

j'ai un problème avec le dernier élément et je suis obligé d'ajouter ce bloc répétitif après la boucle pour

Code:

---

1 2 3 4

si long=1 alors ecrire('{', t[14], '}') sinon ecrire('{', t[14],long, '}') fin si

---

y'a t'il un autre moyen pour éviter le bloc répétitif ?
merci.

Les boucles POUR sont mal adaptées pour des problèmes comme celui-ci.
Deux boucles TANTQUE imbriquées marchent très bien :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

i = 1 ; valeur = t[i] ; old_valeur = valeur ; tantque i <= 14 // init du bloc nbre=1 tantque i<=14 et valeur=old_valeur nbre++ i++ ; valeur = t[i] fin // traitement de fin de bloc si nbre=1 alors ecrire('{',old_valeur, '}') sinon ecrire('{', old_valeur, nbre , '}' fin si fin

---

Cette structure de programme est très courante. Ici on a seulement 2 boucles TANTQUE imbriquées, mais ça peut être plus de blocs.

Bonsoir,
je vous remercie pour votre réponse.
Votre idée semble excellente mais j'ai 2 questions:
- ne faut il pas une affectation qui change la valeur de old_valeur
- le compteur i s’incrémente à l’intérieur de la deuxième boucle tant que, or si la condition d'entée n'est pas valide (i<=14 et valeur=old_valeur) i ne s’incrémente pas !?
je vais explorer cette piste et je vous communiquerais mon code.
Merci.

Il y a effectivement une erreur sur old_valeur, que je vous laisse corriger.
Par contre, sur i, c'est bon.

Bonjour, merci pour votre réponse,effectivement pour i c'est bon mais en traduisant l'algo en pascal, tout est ok sauf pour le dernier élément, j'ai une erreur "valeur non admissible". voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

valeur := t[1] ; nbre:= 0 ; i:= 1 ; while (i <= 14) do begin old_valeur := valeur ; while ( (i<=14) and (old_valeur = valeur) ) do begin nbre:= nbre+ 1 ; i:= i+ 1 ; valeur:= t[i] ; end; if nbre = 1 then write ('{',valeur,'},' ) else write('{',valeur,',',nbre,'},'); nbre: = 0 ; end;

---

ou en algo

Code:

---

1 2 3 4 5

tantque i<=14 et valeur=old_valeur nbre++; i++ ; valeur = t[i] fin

---

en effet, lorsque i = 14 , on incrémente i, du coup valeur=t[15] n'a pas de sens (t est un tableau de 14 entier).

Salut

comment est declaré ton tableau
si ton tableau est de 0..13 c'est normal que le 14 element n'est pas bon
si par contre il est déclaré 1..14 alors ton indice 14 fonctionne ... c'est une erreur classique de traduction des tableau de C en pascal

Bonjour,
Le tableau est déclaré 1..14

Code:

---

1 2 3 4 5 6 7

// i= 14 tantque ((i<=14) et (valeur=old_valeur)) Faire //14<=14 et valeur=old_valeur nbre++; i++ ; // i = 15 valeur = t[i] // valeur = t[15] et t est un tableau de 14 entier fin

---

d’où l'erreur "valeur non admissible"

Ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

i:= 1 ; valeur := t[i] ; while (i <= 14) do begin // Init Nouvelle Valeur nbre: = 0 ; old_valeur := valeur ; while ( (i<=14) and (old_valeur = valeur) ) do begin nbre:= nbre+ 1 ; i:= i+ 1 ; if i<= 14 then valeur:= t[i] ; end; // Ecriture Récapitulatif Valeur en cours if nbre = 1 then write ('{',old_valeur,'},' ) else write('{',old_valeur,',',nbre,'},'); end;

---

1. J'ai simplement ajouté la condition if i<=14 avant d'affecter valeur i:= t[i]
2. La commande nbre := 0 , c'est plus logique de la mettre dans la partie 'INITIALISATION d'un nouveau BLOC plutôt que dans la partie ECRITURE DU RECAPITULATIF.
3. Dans le récapitulatif, c'est OLD_VALEUR, et non VALEUR.
4. Au tout début du programme, j'ai supprimé le nbre=0 qui devenait redondant, et j'ai permuté les 2 instructions i=... et valeur=... , pour garder la même structure que dans la boucle.

salut

sinon on aurais pu faire comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

i:= 1 ; valeur := t[i] ; while (i <= 14) do begin // Init Nouvelle Valeur nbre: = 0 ; old_valeur := valeur ; while ( (i+1<=14) and (old_valeur = valeur) ) do begin i:= i+ 1 ; nbre:= nbre+ 1 ; valeur:= t[i] ; end; // Ecriture Récapitulatif Valeur en cours if nbre = 1 then write ('{',old_valeur,'},' ) else write('{',old_valeur,',',nbre,'},'); end;

---

Merci beaucoup