Titolo: Aumentare la casualità del comando Random
Categoria: Codice |
|
Ultimo Aggiornamento: 02/08/04 |
Il comando Random restituisce un un numero a caso tra 0 e 32.767.
Può capitare che il numero casuale che cerchiamo sia oltre questo limite.
Inoltre il tipico uso che viene fatto del comando è quello di restituire un numero compreso in un certo intervallo.
Ecco quindi un semplice metodo per aumentare le potenzialità del comando Random:
C_LONGINT($minimo_l;$massimo_l;$1;$2)
$minimo_l:=$1
$massimo_l:=$2
C_LONGINT($aCaso_l;$0)
If ($minimo_l=$massimo_l)
$aCaso_l:=(Random*Random)
Else $aCaso_l:=((
Random*
Random)%($massimo_l-$minimo_l+1))+$minimo_l
End if$0:=$aCaso_l
Inviato da: PierPaolo Sichera |
|
Visite: 11336 |
Se accedi con utente e password, puoi aggiungere dei commenti.