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