' Chave de totoloto - 2

CLS

DIM v(49), chave(6)

' Inicializa‡„o do vector de valores poss¡veis
maxposs = 49
FOR i = 1 TO maxposs
    v(i) = i
NEXT i


RANDOMIZE TIMER

FOR i = 1 TO 6  ' 'Escolha' de 6 valores...

    ' Escolhe um valor...
    j = 1 + INT(maxposs * RND)

    ' Copia-o para o vector "chave de totoloto"...
    chave(i) = v(j)

    ' ... e elimina-o dos valores poss¡veis...
    FOR k = j TO maxposs - 1
        v(k) = v(k + 1)
    NEXT k
    maxposs = maxposs - 1
NEXT i

PRINT "Chave do totoloto"
FOR i = 1 TO 6
    PRINT chave(i)
NEXT i

' Verifica‡„o:
PRINT "Sobraram:"
FOR i = 1 TO maxposs
    PRINT v(i);
NEXT i

' Exerc¡cio:
' 1. Acrescente/modifique o programa de forma a gerar uma chave 7 elementos.
' 2. Acrescente/modifique o programa de forma a que a chave seja apresentada
'    por ordem crescente.

END