Software R: gerador de números e de probabilidades para a megasena

Você gosta de tentar a sorte em jogos como a megasena? Então aproveite o software R para gerar sequências aleatórias de 6 números, sem repetição, e descubra a probabilidade de você acertar os números sorteados se escolher 6 ou mais números para jogar.

1) Algoritmo para gerar sequências de 6 números:

O algoritmo abaixo permitirá o usuário adquirir quantas sequências de 6 números desejar, entre 1 a 60 e sem repetição. Para tanto, insira os comandos no R e, em seguida, digite o comando megasena(n), onde 'n' é a quantidade de sequências de 6 números desejada.

# -------------------------------------------------------------------------------------------------------------------
# Gerando números para a megasena

# Inserindo a função megasena
megasena = function(n) { # insere a função megasena
cat("\n") # quebra de linha

for (i in 1:n) { # fará uma repetição de eventos (n vezes)
print(sort(sample(60, 6))) # sample: adquire uma amostra de 6 valores em 60 (sem repetições)
# sort: organiza os números sorteados em ordem crescente
# print: mostra os valores sorteados e organizados em ordem crescente
cat("\n") # quebra de linha
} # fecha o comando for

} # fecha a função megasena
# -------------------------------------------------------------------------------------------------------------------

Veja um resultado do algoritmo para dois jogos:




2) Algoritmo para calcular a probabilidade de acerto dos números da megasena dependendo da quantidade de números jogados

O algoritmo a seguir permitirá o usuário descobrir a probabilidade de ganhar na megasena se jogar 6 números ou mais. Na prática, há um limite de números que se pode marcar na cartela, mas esse algoritmo permite selecionar entre 6 a 60 números. Para tanto, insira os comandos no R e, em seguida, digite o comando megasena.prob(n), onde 'n' é a quantidade de números jogados.

# -------------------------------------------------------------------------------------------------------------------
#Calculando a probabilidade para ganhar a megasena

megasena.prob = function(j) { # insere a função megasena.prob
prob = (choose(j,6)/choose(60,6)) # calcula a probabilidade, entre 0 e 1
cat("\n") # quebra de linha
cat("A probabilidade de você acertar a megasena jogando", j, "números é:", prob*100, "%", "\n")
# o comando acima apresenta o texto final com a probabilidade, em %
cat("\n") # quebra de linha
} # fim da função megasena.prob
# -------------------------------------------------------------------------------------------------------------------

Veja o resultado do algoritmo para 10 números jogados: