22 lines
681 B
Plaintext
22 lines
681 B
Plaintext
LET numTiradas = 1000000
|
|
|
|
FOR i = 1 TO numTiradas
|
|
LET pta_coche = INT(RND * 3) + 1
|
|
LET pta_elegida = INT(RND * 3) + 1
|
|
IF pta_coche <> pta_elegida THEN
|
|
LET pta_montys = 6 - pta_coche - pta_elegida
|
|
ELSE
|
|
DO
|
|
LET pta_montys = INT(RND * 3) + 1
|
|
LOOP UNTIL pta_montys <> pta_coche
|
|
END IF
|
|
! mantener elección
|
|
IF pta_coche = pta_elegida THEN LET permanece = permanece + 1
|
|
! cambiar elección
|
|
IF pta_coche = 6 - pta_montys - pta_elegida THEN LET cambia = cambia + 1
|
|
NEXT i
|
|
|
|
PRINT "Cambiar gana el"; permanece / numTiradas * 100; "% de las veces."
|
|
PRINT "Mantenerse gana el"; cambia / numTiradas * 100; "% de las veces."
|
|
END
|