Exclusion d'un nombre lors de la génération

**stephane_gilbert** · 06/02/2009, 20h54

Bonjour,

je voudrais généré un nombre dans un tableau et il doit apparaitre une seule fois dans le tableau.

mon problème présentement est qu'il se retrouve plusieurs fois dans chaque ligne.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
program Hasard;
 
 type
      tab1=array [1..10] of integer ;
      tab2=array [1..10] of integer;
 const
      j=10;
 var
     c,d,i:integer;
     a:tab1;
     b:tab2;
 
begin
        writeln('Appuyer sur <enter> pour afficher ');
        write('les resultats du tirage au sort.');
        readln;
randomize;
 
for c:=1 to 10 do
 
    begin
          a[c]:=random(j);
            if a[c]=a[c] then a[c]:=random(j)-a[c];  //élimination du nombre (mais je crois qu'il le soustrait)
             write(a[c],' ');
    end;
        writeln('mon equipe');;
  for d:=1 to 10 do
      begin
      b[c]:=random(j);
            if b[d]=b[d] then b[d]:=random(j)-b[d];   //élimination du nombre (mais je crois qu'il le soustrait)
             write(b[d],' ');
      end;
        writeln('Adversaire');
        write('Merci !');
 readln;
 
end.

Merci

**archonte** · 06/02/2009, 23h10

Salut !

Plusieurs petits commentaires :

- a[c] = a[c] me semble être une expression toujours vraie (du moins avec des integer).

- a[c]:=random(j); suivi de a[c]:=random(j)-a[c]; : dans ces conditions 1/ tu génères un nombre pseudo-aléatoire que tu affectes à a[c] puis 2/ tu génères un nouveau nombre pseudo-aléatoire auquel tu soustrais l'ancien, et finalement tu affecte cette différence à nouveau dans a[c] !!!

- tu ne te sers jamais de i, pourquoi le déclarer ? Par ailleurs, tes 2 boucles for..to ne sont pas imbriquées, donc tu pourrais te servir du même integer (c ou d ou i) comme variable de boucle, et donc ne déclarer que c ou d ou i.

- même raisonement avec a[] et b[] utilisés l'un après l'autre. Si tu n'as pas à utiliser ces tableaux pour des traitements ultérieurs, la déclaration d'un seul tableau est suffisante.

En pratique, tu souhaites écrire quelque chose comme ça, je suppose ?

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
var
  a : array[0..9] of integer; // un tableau de 10 integer
  i, j : integer; // variable pour les 2 boucles for..to imbriquées
 
label
  labelDebut;  // pas franchement classique, mais simple ici me semble-t-il, en même temps : jamais testé !!
 
begin
  randomize;
  for i=0 to 9 do
    begin
      labelDebut:    
      a[i] := random(10);
      if i > 0 then     // on ne compare pas le 1er nombre pseudo-aléatoire !
        for j = 0 to i-1 do   // par contre on compare le nombre nouvellement généré au(x) précédent(s)
          if a[j] = a[i] then goto labelDebut; // permet de regenerer un nombre s'il est déja présent dans le tableau !
      write(a[i],' ');
    end;
end;