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
    sabato 26 aprile 2025
    Bari
    23
    30
    43
    69
    25
    Cagliari
    63
    73
    02
    18
    12
    Firenze
    38
    11
    13
    32
    15
    Genova
    09
    27
    84
    16
    11
    Milano
    73
    30
    70
    60
    02
    Napoli
    60
    81
    05
    79
    89
    Palermo
    26
    28
    69
    07
    31
    Roma
    82
    38
    76
    44
    31
    Torino
    05
    62
    73
    46
    84
    Venezia
    42
    14
    45
    35
    52
    Nazionale
    48
    80
    78
    16
    23
    Estrazione Simbolotto
    Genova
    10
    22
    15
    09
    34

Ultimi Messaggi

Indietro
Alto