Generar numeros al azar sin repetirse

#1 · March 27, 2021, 4:29 pm

Hola, a ver si alguien puede ayudarme

necesito generar 5 numeros al azar en un rango de 1 a 15 pero que esos numeros generados no se repitan

Probe con el siguiente codigo pero algo esta mal porque me repite a veces los numeros:

Loop "1" "5" "[x]"
  rlRandomNumber "1" "15" "[Codigo]"
  :1
  rlRandomNumber "1" "15" "[Codigo]"
  Loop "1" "5" "[xx]"
    If "[Num[xx]]" "=" "[Codigo]"
      GotoLine ":1"
    endif
  endloop
  SetVar "[Num[x]]" "[Codigo]"
endloop

#2 · March 27, 2021, 10:41 pm

Loop "1" "5" "[n]"
    Random "15" "[Number]"
    If "[Number]" "=" "0"
        SetVar "[Number]" "1"
    EndIf
    SearchStr "[Number];" "[Numbers]" "[Result]" ""
    While "[Result]" "<>" "0"
        IfEx "[Result]<>0 and [Number]<15"
            SetVar "[Number]" "[Number]+1"
        Else
            SetVar "[Number]" "[Number]-1"
        EndIf
        SearchStr "[Number];" "[Numbers]" "[Result]" ""
    EndWhile
    SetVar "[Numbers]" "[Numbers][Number];"
EndLoop

StrParse "[Numbers]" ";" "[Number]" ""

ClearVariables "n,Number,Numbers,Result"

The array of variables [Number] will contain the necessary numbers.

Vadim has reacted to this post.

Generar numeros al azar sin repetirse - Forum

Generar numeros al azar sin repetirse