[TP] Saisir un tableau dont les éléments sont différents un à un

Version imprimable

voila ce que j'ai fait

Code:

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!!

06/06/2007, 10h06
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
06/06/2007, 10h15
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?

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:

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é?
@+

Citation:
Envoyé par krachik
Code:

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;)??

Hio,

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

Code:

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

06/06/2007, 12h02
mah00

Citation:

Envoyé par droggo

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?
06/06/2007, 13h35
droggo

Zoi,

Citation:

Envoyé par mah00

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. :D
06/06/2007, 13h36
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é.

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

Code:

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;

06/06/2007, 14h53
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 :)).
06/06/2007, 15h15
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.

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:

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:

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:

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.

06/06/2007, 19h58
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!