Mot tiré au sort

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 !

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

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:

---

I := random(NombreMaxDeCase)

---

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

A++
Qwaz
Ps: bienvenue parmis nous ;)

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

Edit :
Ah c'est bon merci Beaucoup :)

exemple:

Code:

---

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;

---

;)

C'est un peu trop évolué pour moi tout ce :oops:
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 :)

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.

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

Code:

---

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

Re
En se qui concerne la ligne de code

Code:

---

Randomize;

---

le mieux est de la mettre dans dans l'evenement Form1.create, pour initialiser la generation de nombre aleatoire une seul fois dans ton programme.
Si tu tiens a faire ue function, je me permet de reprendre le code d'Archimède, tu peux lui passer ta valeur max en parametre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure form1.create(...); begin randomize; end; function aleatoire(MaxRnd : Integer); begin result:=random(MaxRnd); end; n:=aleatoire(Max);

---

Mais Archimède a raison la plusvalue en faisant ca est pas terrible
A++
Qwaz

Sais attention a un detail :
eandom te rends une valeur entre 0 et nbMAX-1

Il faut donc que ta table commece à 0

A: Array[0...9] if string

NbMax:=10

MonMot:=A[Random(NbMax)]

Nuo,

Citation:

---

Envoyé par Smirn

Code:

---

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. :D

En effet, ca ne sert à rien...
Vraiment merci de votre aide en tout cas :D