24 lines
657 B
Plaintext
24 lines
657 B
Plaintext
numTiradas = 1000000
|
|
permanece = 0
|
|
cambia = 0
|
|
|
|
for i = 1 to numTiradas
|
|
pta_coche = int(rand * 3) + 1
|
|
pta_elegida = int(rand * 3) + 1
|
|
if pta_coche <> pta_elegida then
|
|
pta_montys = 6 - pta_coche - pta_elegida
|
|
else
|
|
do
|
|
pta_montys = int(Rand * 3) + 1
|
|
until pta_montys <> pta_coche
|
|
end if
|
|
# manteenr elección
|
|
if pta_coche = pta_elegida then permanece += 1
|
|
# cambiar elección
|
|
if pta_coche = 6 - pta_montys - pta_elegida then cambia +=1
|
|
next i
|
|
|
|
print "Si mantiene su elección, tiene un "; permanece / numTiradas * 100 ;"% de probabilidades de ganar."
|
|
print "Si cambia, tiene un "; cambia / numTiradas * 100; "% de probabilidades de ganar."
|
|
end
|