Toon58 | Code :
- Imports System.Threading
- Module Module1
- Sub Main()
- Dim nombre, de1, de2, de3, de4, de5, de6, cpt As Integer
- Randomize()
- Console.WriteLine("Simulation de lancer de 6 dés" )
- Console.WriteLine("Combien de fois voulez vous simuler le lancé de 6 dés ?" )
- nombre = Console.ReadLine()
- While nombre > 0
- de1 = 1 + Rnd() * 6
- de2 = 1 + Rnd() * 6
- de3 = 1 + Rnd() * 6
- de4 = 1 + Rnd() * 6
- de5 = 1 + Rnd() * 6
- de6 = 1 + Rnd() * 6
- nombre -= 1
- Console.WriteLine("tirage numéro {0} en cours ", nombre)
- 'Console.Write(" {0} {1} {2} {3} {4}{5}", de1, de2, de3, de4, de5, de6)
- If de1 = de2 = de3 = de4 = de5 = de6 Then
- cpt = cpt + 1
- End If
- End While
- Console.WriteLine("Les dés ont tous eu la même valeur {0} fois", cpt)
- Thread.Sleep(2000)
- End Sub
- End Module
|
voici un algorithme tout con que j'avais en C et que j'ai passé en Vb
Problème : Même sur 1000000 tirages, je n'obtiens jamais tous les dés égaux, alors que le même algorithme en C me donne environ 130 fois les dés tous égaux.
Quelqu'un peut t'il m'aider ? Je débute en Vb (2008) (Comme si cela ne se voyait pas ) |