Ola a todos, estou aprendendo Lógica de Programação e estou tentando desenvolver por conta um algoritmo de Mega Sena usando vetores.
Porém, não sei como fazer para na hora do sorteio não repetir números, sortear de 1 a 60 em vez de 0 a 60, e não deixar o usuário colocar números que não sejam entre 1 a 60.
Eu coloquei para automaticamente fornecer os números desejados para ficar mais fácil de testar, porque toda hora ter que ficar botando os numero é osso.
Eu também queria aprender a como pegar o resultado destes vetores e comparar com o vetores do sorteio e dependendo do resultado dar parabéns.
algoritmo "Mega Sena"
// Função : sortear numeros
// Autor : PAULO RAZ3N
// Data : 05/11/2019
// Seção de Declarações INCOMPLETO, QUERO APRENDER A NÃO DEIXAR NUMEROS REPETIDOS
var
NUM_ALE : vetor [1..6] de inteiro
NUM : vetor [1..6] de inteiro
NUM_ESC, NUM_ESC1, AUX, AUX1, SORTEADON, SORTEADON1: inteiro
inicio
//PESSOA VAI DIGITAR NUMEROS
escrevaL("===============================================")
escreval("===================MEGA SENA===================")
escrevaL("===============================================")
escreval("Digite 6 numeros de 1 á 60:")
para NUM_ESC de 1 ate 6 faca
aleatorio on
leia(NUM[NUM_ESC])
aleatorio off
fimpara
escrevaL("===============================================")
escrevaL("===============================================")
limpatela
//ISTO VAI ORGANIZAR OS NUMERO EM CRESCENTE
para NUM_ESC de 1 ate 5 faca
para NUM_ESC1 de NUM_ESC +1 ate 6 faca
se NUM[NUM_ESC] > NUM[NUM_ESC1] entao
AUX <-NUM[NUM_ESC1]
NUM[NUM_ESC1] <- NUM[NUM_ESC]
NUM[NUM_ESC] <- AUX
fimse
fimpara
fimpara
//VAI MOSTRAR OS NUMEROS NA TELA
escrevaL("===============================================")
escreval("===================MEGA SENA===================")
escrevaL("===============================================")
escreval()
escreval()
escrevaL("===============================================")
escreva("Os numeros escolhidos foram: ")
para NUM_ESC de 1 ate 6 faca
escreva(NUM[NUM_ESC])
fimpara
escreval()
escrevaL("===============================================")
//RANDOMIZAR NUMEROS
para SORTEADON DE 1 ate 6 faca
NUM_ALE [SORTEADON] <- RANDI(60+1)
fimpara
//ORGANIZAR E PRINTAR NUMEROS ALEATORIOS resultado da mega
escreval()
escreval()
escrevaL("===============================================")
escreva("Os numeros sorteados foram: ")
para SORTEADON de 1 ate 6 faca
para SORTEADON1 de SORTEADON +1 ate 6 faca
se NUM_ALE[SORTEADON] > NUM_ALE[SORTEADON1] entao
AUX1 <-NUM_ALE[SORTEADON1]
NUM_ALE[SORTEADON1] <- NUM_ALE[SORTEADON]
NUM_ALE[SORTEADON] <- AUX1
fimse
fimpara
escreva(NUM_ALE[SORTEADON])
fimpara
escreval()
escrevaL("===============================================")
fimalgoritmo