Discussion :

[Maxence45]

Bonsoir , j'ai écrit une fonction qui renvoit de manière aléatoire un nombre entre 0 et n , cette fonction marche , voici le code :

Code :

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

1
2
3
4
5
6
Function alea(ByVal x As Long) As Long
Dim cou As Long, n As Long
n = x
    cou = Int((n * Rnd) + 1)
    alea = cou
End Function

maintenant je dois écrire une fonction qui étant donné un entier positif , renvoie avec une probabilité de 0,7 un entier compris entre 0 et l'entier donné , voici le code que j'ai écrit mais qui ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
Function Alea1(ByVal x As Variant) As Variant
If x >= 0 And x <= 1 And Rnd(x) < 0.9 Then
    x = alea
Else
    x = "salut"
End If
Alea1 = x
End Function

Pourquoi cette fonction ne me renvoit pas un nombre entre 0 et l'entier donné avec une probabilité de 0,9 ?

merci

[patbou]

BONSOIR,

elle attends quoi ta premiere fonction !!!!
utilise des msgbox ou des debug.print pour voir l evolution de tes procedures

Code :

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

1
2
 
Function alea(ByVal x As Long) As Long

[Maxence45]

non je dois pas utiliser de choses en rapport avec des procédures , ma fonction marche et c'est sur la seconde que j'ai un probleme...

[alsimbad]

hum, vu que tu as mis ton autre post en delestage, je te fais un copier coller de ma derniere réponse
de plus

Code :

Code :

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

1
2
3
Function proba(ByVal n As Variant) As Variant
'Renvoie un nombre aléatoire entre 0 et n avec une probabilité de 0,7
If n >= 0 And n <= 1 And Rnd(n) < 0.7 Then

le seul chiffre que tu teste ici c'est Rnd(n) donc je résume
tu as le chiffre n
toto te donne un aléatoire entre 0 et n
mais ta fonction proba ne prend en compte que le chiffre n
et le chiffre que tu teste est un aléatoire issu de ce chifre n
je vois pas l'interet de ta manip
ce qu'il faut c'est que
toto renvoie un chiffre aléatoire n compris entre 0 et 1 (peut etre même que tu serais avisé de travailler avec des entiers. entre 0 et 10 par exemple)

Code :

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

1
2
3
4
5
6
Function proba(ByVal n As Variant) As Variant
'Renvoie un nombre aléatoire entre 0 et 10 avec une probabilité de 7/10
If n <=7 Then x = "hello"
Else x = "salut"
End If
proba = xEnd Function

ce qui pourrait ensuite devenir

Code :

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

1
2
3
4
5
 
Function proba(ByVal n As Variant) As Variant
If n <=7 Then x = "hello" Else x = "salut"proba = xEnd Function
 
et donc ensuite

Code :

Code :

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

1
2
3
4
 
Function proba(ByVal n As Variant) As Variant
proba = IIf(n <= 7, "hello", "salut")
End Function

[Maxence45]

alsimbad merci de m'avoir répondu mais tu n'as probablement pas lu mon 1er message , la fonction alea ( la 1ere qui marche ) doit bien renvoyer un nombre entre 0 et n et non entre 0 et 1 c'est la consigne de l'exercice .

c'est pgz qui m'a mis sur la voix avec la fonction rnd , faut qu'on l'attende car si tt le monde répond ça sera illisible et je vais tt mélanger...

[patbou]

je repete

Code :

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

1
2
 x = alea