13 lines
434 B
Text
13 lines
434 B
Text
Const iteraciones = 1000000
|
|
Randomize Timer
|
|
Dim As Uinteger cara = 0, dormir = 0
|
|
|
|
For i As Uinteger = 1 To iteraciones
|
|
Dim As integer lanza_moneda = Int(Rnd * 2) + 1
|
|
dormir += 1
|
|
if lanza_moneda = 1 then cara += 1 else dormir += 1
|
|
Next i
|
|
|
|
Print Using "Wakings over #####,### repetitions = #####,###"; iteraciones ; dormir
|
|
Print using "Percentage probability of heads on waking = ###.######%"; (cara/dormir*100)'; "%"
|
|
Sleep
|