Discussion :

[mah00]

voila ce que j'ai fait

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
procedure saisie(n1:integer;var a:tab);
var i,j:integer;
    v:boolean;
begin
v:=false;
 for i:=1 to n1 do
 begin
  repeat
   write('donner l''élement num ',i,' du tableau: ');
   readln(a[i]);
    for j:=1 to n1 do
     if a[j]=a[i] then
      v:=true;
  until v=false;
  end;
end;

je crois que mon erreur est avec la variable booleénne,mais j'ai pa su la corriger.
Si vous pouvez m'aidez ca serait super!!

[droggo]

Qio,

- Il faudrait lire une valeur, sans la mettre dans le tableau,

- Puis, vérifier si elle est déjà là.

- Si elle y est déjà, on l'ignore, sinon on l'ajoute au tableau.


Cela montre déjà qu'une boucle for n'est pas adaptée, il faut une boucle repeat, car on va y passer au moins une fois.

Je te conseille de faire une fonction pour contrôler si une valeur est déjà dans le tableau

[mah00]

mais si je fais une boucle repeat,comment je fais pour controler toutes les valeurs du tableuax?Je ve dire comment faire pour voir si cet éléments n'existe pas dans tout le tableux?
Ne faut-il pas utiliser for pour le parcourir?

[krachik]

bonjour
si tu pose cette question c'est que tu n'a pas encore compris comment on utilise une boucle repeat qui dans ton cas est plus optimal sinon t'aurais pu utiliser une boucle while(pas optimal dans ton cas)
s'il s'agit de voir si l'element entré est dans le tableau ,avec la boucle repeat tu parcours ton tableau jusqu'a rencontrer ta valeur et une fois ta valeur rencontré tu sors de la boucle pour eviter une perte de temps
ex:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
     ..........
               ....................
               .............
         i:=1;
         repeat
              tableau[i]:=i;
              ..............
              .................
              inc(i);
         until (i=5);

c'est bien l'algo que droggo à ecrit? je trouve que dans ta fonction il y ' a pas tout ça.
as tu compris pourquoi une boucle for n'est pas adapté?
@+

[mah00]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
     ..........
               ....................
               .............
         i:=1;
         repeat
              tableau[i]:=i;
              ..............
              .................
              inc(i);
         until (i=5);

J'ai vraiment pas compris le role de ce que tu as écris!!
La tu n'es pa entrain de verifier si l'élément i est égale ou nom a l'indice i lui meme? (tableau[i]:=i??

[droggo]

Hio,

En gros (suffisamment détaillé, tu n'as plus qu'à coder ) :

Code X :

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

1
2
3
4
5
6
7
8
9
10
11
{ le tableau a des indices de 1 à n1 }
- Initialiser i = 0

- répéter
.    lire valeur
.    contrôler si valeur existe déjà
.      si elle n'existe pas
.        incrémenter i, qui sera l'indice où stocker la nouvelle valeur
.        mettre la valeur à sa place
- jusqu'à i = n1

[mah00]

contrôler si valeur existe déja

C'est justement ca mon probleme!
Tu m'a dit qu'il ne fallait pas utiliser for,il faut le faire avec while?

[droggo]

Zoi,

C'est justement ca mon probleme!
Tu m'a dit qu'il ne fallait pas utiliser for,il faut le faire avec while?

Relis ce que j'ai écrit, je n'ai jamais prétendu cela.

Ce que j'ai écrit, c'est qu'une boucle for n'est pas appropriée pour lire/ajouter une valeur dans ton tableau.

Pour contrôler si la valeur existe déjà, une boucle for est parfaitement adaptée, en faisant quand même attention aux indices.

[M.Dlb]

Oui avec un while. Ca consiste à parcourir ton tableau du début, et de s'arreter si on trouve la valeur désirée, ou sinon continuer jusqu'à la fin. A la fin de la boucle, si l'indice de parcours est supérieur à la taille du tableau, alors on a pas trouvé l'élément cherché, sinon on l'a trouvé.

[mah00]

voila ce que j'ai fait,c'est bon?

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
20
procedure saisie(n1:integer;var a:tab);
var k,i,j:integer;
    b:char;
begin
k:=0;
i:=0;
 repeat
   k:=0;
    write('donner l''élément num ',(i+1),' :');
    readln(b);
     for j:=1 to n1 do
       begin
        if a[j]=b then
        k:=k+1;
       end;
     if k= 0 then
     inc(i);
     a[i]:=b;
 until i=n1;
end;

[droggo]

Koi,

Non, et ça va devenir un leitmotiv : en testant, tu as bien dû voir que ça ne va pas.

Fais un effort, je t'ai mâché le travail à faire, en ajoutant qu'il fallait faire attention aux indices.

Et c'est vrai, wormful_sickfoot a raison : une boucle while irait mieux, sauf si tu apprends à stopper une boucle for quand une condition est vraie (ce qui revient à gérer une boucle while ).

[mah00]

mais j'ai essayé et je ne suis pas arrivé!!Pas la peine de me dire de faire un effort parceque c'est ce que je fais!
Et pour la boucle while,je n'ai pas compris comment il fallait faire.

[droggo]

Dao,

Une boucle while fonctionne ainsi : elle s'exécute tant qu'une condition est vraie, y compris pour le 1er tour, ce qui oblige à initaliser la condition, et implique qu'on peut très bien ne jamais passer dans la boucle, car elle teste la condition avant de s'exécuter

Soit condition qui est vraie ou fausse.

Code :

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

1
2
3
4
5
6
7
8
9
10
...
var
   condition : booléen (vrai ou faux)
...
  condition = vrai;
 
  tant que condition = vrai faire
    { le code, qui a un moment ou un autre
       devra mettre condition à faux. }
  fin boucle

fera au moins un tour dans la boucle, car la condition est vérifiée avant d'entrer dans la boucle

alors que

Code :

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

1
2
3
4
5
6
7
8
9
10
...
var
   condition : booléen (vrai ou faux)
...
  condition = faux;
 
  tant que condition = vrai faire
    { le code, qui a un moment ou un autre
       devra mettre condition à faux. }
  fin boucle

n'y passera jamais.

Dans ton cas, la condition est constituée de 2 parties:
- la valeur existe ou pas,
- l'indice ne dépasse pas l'indice de la dernière valeur validée

Si on appelle :
existe un booléen = true quand la valeur existe déjà, sinon false
iMax l'indice de la dernière valeur entrée, c'est à dire validée, = 0 s'il n'y a encore aucune entrée validée
i l'indice qui sert à boucler pour la vérification
valeur est la nouvelle valeur à tester
t est le tableau en cours de remplissage, dont le plus grand indice actuellement valide est donc iMax

On a condition pour que la boucle s'exécute =
(existe = false) ET (i <= iMax)

Ce qui se traduit par

Code :

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

1
2
3
4
5
6
7
8
9
...
existe := false;
i := 1;
while not(existe) and (i <= iMax) do
begin
  if t[i] = valeur
  then existe := true
  else i := i +1;
end;

À la sortie, si existe = false, alors la valeur n'existe pas dans t.

[mah00]

merci pour cette explication détaillée,elle m'aide vraiment parceque j'ai souvent a utilisé ce genre de séquence et a chaque fois j'essaye de l'éviter faute de maitrise des variables booleénnes!
Merci encore a tous!