Discussion :

[paskal++]

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 :

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

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 :

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

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.

[tbc92]

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

Code :

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

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.

[paskal++]

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.

[tbc92]

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

[paskal++]

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 :

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

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 :

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

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).

[anapurna]

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