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
    venerdì 04 aprile 2025
    Bari
    37
    55
    29
    11
    70
    Cagliari
    10
    16
    04
    01
    81
    Firenze
    15
    62
    30
    85
    72
    Genova
    16
    07
    34
    25
    18
    Milano
    01
    77
    67
    72
    76
    Napoli
    47
    14
    55
    87
    45
    Palermo
    49
    90
    79
    66
    41
    Roma
    28
    14
    10
    65
    88
    Torino
    22
    60
    50
    04
    08
    Venezia
    23
    60
    74
    52
    43
    Nazionale
    74
    44
    90
    06
    56
    Estrazione Simbolotto
    Genova
    28
    22
    15
    36
    09

Ultimi Messaggi

Indietro
Alto