Novità

Come rilevare ed estrapolare il valore minimo di un vettore escludendo lo 0

lotto_tom75

Advanced Premium Member
Riesco ad ottenere il valore massimo e a salvarlo nel relativo vettore crtmaxrilevati con l'apposita funzione...

Codice:
If crt > 0 Then
If MassimoV(crtmaxrilevati) = 0 Or crt > MassimoV(crtmaxrilevati) Then
Erase crtmaxrilevati
crtmaxrilevati = Array(0)
crtmaxrilevati = array_push(crtmaxrilevati,crt)
End If
End If

Ma quando si tratta di valutare il valore minimo crt e di salvarlo nel relativo vettore crtminrilevati mi incarto con il primo elemento del vettore sempre pari a 0 e non riesco a popolarlo con la funzione analoga...

Codice:
If crt > 0 Then
If MinimoV(crtminrilevati) = 0 Or crt < MinimoV(crtminrilevati) Then
Erase crtminrilevati
crtminrilevati = Array(0)
crtminrilevati = array_push(crtminrilevati,crt)
End If
End If

Ho provato varie soluzioni anche con il for x saltare il primo posto del vettore crtminrilevati ma non funzia...

Ad una semplice verifica del tipo:

Codice:
   Call Scrivi ("verifica contenuto crtminrilevati: ")
   Dim j
   For j=0 To UBound(crtminrilevati)
   Call Scrivi ("valore crt " & crtminrilevati(j))
   If ScriptInterrotto Then Exit For
   Next

mi da sempre e soltanto

valore crt 0

:unsure:
 
Riesco ad ottenere il valore massimo e a salvarlo nel relativo vettore crtmaxrilevati con l'apposita funzione...

Codice:
If crt > 0 Then
If MassimoV(crtmaxrilevati) = 0 Or crt > MassimoV(crtmaxrilevati) Then
Erase crtmaxrilevati
crtmaxrilevati = Array(0)
crtmaxrilevati = array_push(crtmaxrilevati,crt)
End If
End If

Ma quando si tratta di valutare il valore minimo crt e di salvarlo nel relativo vettore crtminrilevati mi incarto con il primo elemento del vettore sempre pari a 0 e non riesco a popolarlo con la funzione analoga...

Codice:
If crt > 0 Then
If MinimoV(crtminrilevati) = 0 Or crt < MinimoV(crtminrilevati) Then
Erase crtminrilevati
crtminrilevati = Array(0)
crtminrilevati = array_push(crtminrilevati,crt)
End If
End If

Ho provato varie soluzioni anche con il for x saltare il primo posto del vettore crtminrilevati ma non funzia...

Ad una semplice verifica del tipo:

Codice:
   Call Scrivi ("verifica contenuto crtminrilevati: ")
   Dim j
   For j=0 To UBound(crtminrilevati)
   Call Scrivi ("valore crt " & crtminrilevati(j))
   If ScriptInterrotto Then Exit For
   Next

mi da sempre e soltanto

valore crt 0

:unsure:

Non importa +. Ho risolto.

X chi interessasse la soluzione is:

Codice:
MinimoV(vettore, 1,ubound(vettore))

Mettendo al secondo parametro della funzione il valore 1 saltiamo il primo posto del vettore popolato sempre dallo 0.

Vista nella guida di spazio 😉
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 novembre 2024
    Bari
    35
    16
    24
    41
    85
    Cagliari
    89
    30
    10
    81
    72
    Firenze
    38
    60
    16
    13
    28
    Genova
    52
    15
    80
    08
    53
    Milano
    33
    77
    06
    54
    73
    Napoli
    01
    50
    64
    35
    36
    Palermo
    02
    01
    19
    33
    62
    Roma
    33
    48
    72
    47
    68
    Torino
    62
    28
    18
    75
    31
    Venezia
    03
    54
    27
    14
    71
    Nazionale
    02
    44
    27
    86
    78
    Estrazione Simbolotto
    Torino
    30
    07
    39
    14
    19

Ultimi Messaggi

Indietro
Alto