Discussion :

[Smirn]

Bonjour à tous!
J'ai un petit problème auquel je ne trouve pas de solutions, malgrès mes recherches !
Voilà en gros je cherche comment faire une procédure qui tire au sort un mot dans un tableau... Je ne vois vraiment pas comment faire !

Merci d'avance !

[Archimède]

il suffit de faire un randomize sur l'indice de ton tableau
a+

[Qwazerty]

SAlut
[Edit] +1 Archimede, je suis encore a la bourre [/Edit]
Petite recherche et hop
http://www.developpez.net/forums/sho...d.php?t=299887

Dans ton cas il te faudra mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

I := random(NombreMaxDeCase)

Et ensuite utiliser I comme numero d'index de ton tableau

A++
Qwaz
Ps: bienvenue parmis nous

[Smirn]

Pourrais-tu me préciser comment on fait cela ?
Merci d'avance

Edit :
Ah c'est bon merci Beaucoup

[Archimède]

exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
const tabmot:array[1..5] of string =('un','deux','trois','quatre','cinq');
 
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=random(4)+1;
caption:=tabmot[i];
end;

[Smirn]

C'est un peu trop évolué pour moi tout ce
Lol en tout cas merci quand même,j'ai compris le principe,ca m'a bien aider !
Seul petit problème, en mettant :

Const
Max = 10;
Var
n:integer;
begin
Randomize;
n:=Random (Max);
Writeln (n);
Readln;
end;

Ca marche niquel, par contre dès que j'essaye de créer une procredure :

Procedure aleatoire (n:integer);
begin
Randomize;
n:=Random (Max);
end;

Var
i:integer;

begin
aleatoire (i);
Writeln (i);
Readln;
end.

Là ca bug... J'ai le droit à des "216849563" comme résultat... Une idée ?
Ps : Dsl je suis un débutant débutant, en première année de prépa

[Archimède]

tu dépasses la limite d'un integer.
random renvoie de 0 à max donc max+1 et là ça plante car > à integer;
d'où la limite supérieure d'un integer en message d'erreur.
=>n:=random(max-1);

non excuse, j'ai mal lu max=10! ok
le prob est que tu envoies une variable dans le paramètre de ta procédure.

[Archimède]

si tu vex vraiment faire quelque chose tu fais une fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
function aleatoire;
begin
result:=random(max);
end;
 
n:=aleatoire;

ça ne présente pas beaucoup d'intérêt...

[droggo]

Nuo,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Procedure aleatoire (n:integer);
  begin
   Randomize;
   n:=Random (Max);
  end;

Il y a déjà eu pas mal de réponses, et j'espère que tu as compris l'inutilité de ta procédure, qui, au minimum, devrait être transformée en fonction.

De toute manière, ta procédure, telle qu'elle est écrite, ne fait absolument rien !!

En effet, tu passes le paramètre n par valeur, et la procédure ne fait que modifier la copie locale obtenue, sans le moindre effet sur la variable que tu pensais ainsi modifier.