Choisir un élément au hasard dans un tableau [Résolu]

[contre]

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 :

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.

[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.

@+

[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 ?

[Roland Chastain]

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.

[contre]

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.

[Roland Chastain]

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;