Choisir un élément au hasard dans un tableau

Version imprimable

1 pièce(s) jointe(s)

Bonjour,
En pascal j’utilise la fonction Randomize pour générer des nombres aléatoires, pour générer une suite ou un tableau d’éléments au hasard voici un petit programme :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Program Aleatoire; Procedure hasard(n : Integer); Var k, x : Integer; Begin For k := 1 To n Do Begin x := Random(99)+1; Write(x : 4) End; WriteLn End; Begin Randomize; hasard (15) End.
Une des exécutions donnera par exemple voir image ci-dessous :
http://www.developpez.net/forums/att...u/capture.gif/
Ma question svp est la suivante :
Comment générer au hasard un nombre d’éléments parmi la liste ci-dessus ?
Exemple 6 éléments parmi les 15 éléments déjà générés.
D’avance merci.

20/05/2012, 17h32
Archimède

Tu fais un tableau de ton nombre d'éléments à générer au hasard... de 1 à 6 ou 0->5
Tu refais un random(6)+1. le chiffre généré correspondra à l'indice de ton tableau...et tu vas ainsi offrir au hasard un de tes nombres.

@+
20/05/2012, 21h12
contre

Random tableau

Merci Archimède
Je n’arrive pas encore à matérialiser l’idée.
Ce que j’ai compris c’est que mon tableau composer de 15 éléments à des indices allant de 0 a14 ou de 1 à 15, les indices de mon nouveau tableau de 6 cases recevront à chaque fois un Random (indice-ancien-tableau) non ?
20/05/2012, 21h39
Roland Chastain

Citation:

Envoyé par contre

Merci Archimède
Je n’arrive pas encore à matérialiser l’idée.
Ce que j’ai compris c’est que mon tableau composer de 15 éléments à des indices allant de 0 a14 ou de 1 à 15, les indices de mon nouveau tableau de 6 cases recevront à chaque fois un Random (indice-ancien-tableau) non ?

Bonsoir !

Dans le tableau de 6 cases, tu ne mettras pas le résultat de Random mais tu y iras prendre dans le tableau de 15 cases le nombre se trouvant à la place indiquée par Random.

Par exemple, si Random=3, tu vas prendre le 3e élément du tableau de 15 cases, puis tu le places dans la première case vide de ton tableau de 6, jusqu'à ce que celui-ci soit plein.

J'espère que cette reformulation t'aidera. :)

1 pièce(s) jointe(s)

Choisir parmi Random

Merci à vous l’idée a été comprise enfin voici un bricolage que j’essayerais de perfectionner prochainement:

Code:

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
Program Aleatoire;
type tableau=array[0..99]of integer;
procedure hasard( var t,t1:tableau;n:integer);
   Var k,z,j : Integer;
   Begin
      writeln('Premier tableau');
      For k := 0 To n-1 Do
         Begin
            t[k]:=random(9)+1;
            Write(t[k] : 4)
         End;
         WriteLn;
      writeln('deuxieme tableau');
      for j:=0 to 5 do
         begin
            z:=random(n);
            t1[j]:=t[z];
            write(t1[j]:4);
         end;
         writeln;
   End;
   var t,t1:tableau;
       n:integer;
   Begin
      n:=10;
      Randomize;
      hasard (t,t1,n)
   End.

http://www.developpez.net/forums/att...2&d=1337703913

23/05/2012, 21h55
Roland Chastain
Citation:

Envoyé par contre

Merci à vous l’idée a été comprise enfin voici un bricolage que j’essayerais de perfectionner prochainement:

Il est très bien, ce programme.
Code:

1 2 3 4 5 6 7 for j:=0 to 5 do begin z:=random(n); t1[j]:=t[z]; ... end;
:ccool: