Sujet Précédent Sujet Suivant

Procédure random

ayllau Messages postés 4 Date d'inscription dimanche 13 mars 2005 Statut Membre Dernière intervention 23 avril 2005 - 4 avril 2005 à 12:09
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 - 4 avril 2005 à 16:25
bjr!
je dois taper une procédure pr un lancer de dé (à six faces)et je ne sais pas cmmt utiliser la fction random.
merci

3 réponses

Réponse 1 / 3
WhiteHippo Messages postés 1154 Date d'inscription samedi 14 août 2004 Statut Membre Dernière intervention 5 avril 2012 3
4 avril 2005 à 12:38
function LandementDe ( const NombreDeFaces : Integer ) : Integer ;
begin
// -1 car random travailles de 0..X
// +1 pour avoir le résultat compris entre 1 et NombreDeFaces
Result := random( NombreDeFaces-1) + 1 ;
end ;


Appel :

var
NumeroFace : Integer ;

begin
Randomize ;
NumeroFace := LancementDe(6) ;
NumeroFace := LancementDe(6) ;
NumeroFace := LancementDe(6) ;
end ;

Cordialement.
0
Réponse 2 / 3
ayllau Messages postés 4 Date d'inscription dimanche 13 mars 2005 Statut Membre Dernière intervention 23 avril 2005
4 avril 2005 à 12:51
merci bcp!!
0
Réponse 3 / 3
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 12
4 avril 2005 à 16:25
ayllau >>
N'oublie pas de cliquer sur "Réponse acceptée" puisque la réponse te convient
0

Discussions similaires

fonction random en Delphi
alexyou -
KingRamses -

4 réponses
Math.random() en java
nicegirle -
nicegirle -

2 réponses
random sans deux fois la meme valeur
laupif -
devilsfire -

6 réponses
Parametre de ShellExecute
armetiz -
armetiz -

28 réponses
Fonction Pos().
Becracker -
ni69 -

7 réponses
Rejoignez-nous