Club Ultimo

Scaricamento files

DBEst per Win La versione 2.0.0 del programma per la gestione dell'archivio delle estrazioni che gestisce la Ruota Nazionale e le tre estrazioni settimanali, per gli utenti Win, ma la possono utilizzare anche gli utenti DOS.
Archivi delle estrazioni di Ultimo aggiornati, per entrambe le versioni, Win e DOS.
FAQ di Ultimo L'ultima versione del file con le FAQ - Frequently Asked Questions (Domande Frequenti) per gli utenti Win. Questo file può essere molto utile anche agli utenti della versione DOS, ma per consultarlo è necessario disporre di un sistema operativo a 32 bit (Win 95/.../XP).


Lo scopo di questa pagina è di aiutare gli utenti di Ultimo con poca esperienza nella programmazione. Insieme alle piccole tecniche di programmazione riportate direttamente su questa pagina, puoi scaricare anche gli esempi più complessi, contenuti nel file TP.ZIP che trovi in fondo della pagina.
Per approfondire gli esempi riportati ti consiglio di consultare anche il manuale e la guida on-line di Ultimo.


Numeri pari e dispari

Per scoprire se un numero è pari o dispari si può utilizzare l'operatore % (resto della divisione). Un numero è pari se diviso per 2 non dà il resto.
    10: IMMETTI a
        SE a%2=0 ALLORA SCRIVI a;" è un numero pari."
        SE a%2 ALLORA SCRIVI a;" è un numero dispari."
        SCRIVI    
        VAIA 10
    

Numeri vertibili (soltanto Ultimo per DOS)

Ci sono diverse definizioni per quanto riguarda i vertibili dei gemelli ed i numeri in cadenza 9. Nel caso quando il vertibile di un gemello è il rispettivo numero in cadenza 9, ed il vertibile di un numero in cadenza 9 è il rispettivo gemello, si può procedere in questo modo:
    10: IMMETTI a
        ' prima si fa il vertibile
        b = VERT(a)
    
        ' nel caso il numero "a" fosse un gemello si ricalcola il vertibile
        SE GEM(a) ALLORA 
          b = DEC(a)*10 + 9
          VAIA 20
        FINE SE
    
        ' nel caso il numero "a" fosse in cadenza 9 si ricalcola il vertibile
        ' Questo non vale per il numero 9. Il suo veritibile è 90.
        SE CAD(a)=9 & DEC(a)<>0 ALLORA b = DEC(a)*10 + DEC(a)
        
    20: SCRIVI "Vertibile di";a;" è";b
        SCRIVI
        VAIA 10
    
Utenti di Ultimo per Win possono utilizzare la funzione VERTIB.


Distanza ciclometrica (soltanto Ultimo per DOS)

Si utilizza la funzione DIST di Ultimo. Se la distanza supera 45, la distanza si detrae da 90.
    10: SCRIVI "1. numero = ";
        IMMETTI n1
        SCRIVI "2. numero = ";
        IMMETTI n2
        d = DIST(n1, n2)    ' distanza normale dei due numeri
        SE d>45 ALLORA d = 90-d
        
        SCRIVI "Distanza ciclometrica tra";n1;" e";n2;" =";d
        SCRIVI
        VAIA 10
    
Utenti di Ultimo per Win possono utilizzare la funzione DISTC.


Detrarre un numero da un altro evitando un risultato negativo

Detraendo due numeri il risultato può diventare negativo. Quando è necessario evitare il risultato negativo, nella relativa espressione aggiungi il fisso 90 e fai FUORI 90.
    10: SCRIVI "1. numero = ";
        IMMETTI n1
        SCRIVI "2. numero = ";
        IMMETTI n2
        d = n1 - n2 + 90: FUORI 90
        SCRIVI n1;" -";n2;" =";d
        SCRIVI
        VAIA 10
    

Utilizzo delle condizioni implicite

Le condizioni possono essere incluse anche direttamente in un'espressione numerica (condizione implicita). Inserendo tra le parentesi un'espressione relazionale (=, >=, <=, <>) o/e logica (&, |, !) si ottiene il risultato 1 se la condizione è vera, oppure 0 se la condizione è falsa.
Esempio: Se il numero "n1" è maggiore di 45 bisogna detrarrgli 25, altrimenti bisogna sommargli 16.
    ' procedimento standard sarebbe
    10: IMMETTI n1
        SE n1>45 ALLORA n2 = n1-25
        SE n1<=45 ALLORA n2 = n1+16
        SCRIVI "n1 =";n1;", n2 =";n2
        SCRIVI
        VAIA 10
    
    ' utilizzando la condizione implicita
    10: IMMETTI n1
        n2 = n1 - 25*(n1>45) + 16*(n1<=45)
        SCRIVI "n1 =";n1;", n2 =";n2
        SCRIVI
        VAIA 10
    
    Se il numero "n1" è maggiore di 45, l'espressione (n1>45) sarà vera, cioè il suo risultato sarà 1, moltiplicato per 25 farà detrarre 25 dal "n1", mentre l'espressione (n1<=45) sarà falsa, cioè il suo risultato sarà 0 che moltiplicato per 16 dà sempre 0, perciò 16 non sarà sommato al "n1".

Come estrarre le singole cifre da un numero

Per estrarre le unità e le decine si utilizzano le funzioni CAD e DEC, mentre per le altre cifre vedi l'esempio.
    10: SCRIVI "Numero ";
        IMMETTI n1
        c1 = CAD(n1)      ' unità
        c2 = DEC(n1)      ' decine
        c3 = CAD(n1\100)  ' centinaia
        c4 = CAD(n1\1000) ' migliaia
        ' e così via
        SCRIVI c4; c3; c2; c1
        SCRIVI
        VAIA 10
    

Come gestire le estrazioni mensili (soltanto Ultimo per DOS)

Ultimo prevede, per i metodi con un passo mensile, la possibilità diretta di gestire le estrazioni delle prime quattro settimane (estrazioni), e di quella ultima del mese.

NOTA: In ULTIMO, la parola 'settimana' è sinonimo per 'estrazione'

Per gestire le altre estrazioni; quinta, sesta, settima..., si può procedere così:
Per esempio, si vuole operare soltanto nella settima settimana del mese. Si fa un normale ciclo ESTRAZIONE...PROSSIMA, senza specificare la settimana, e dopo la riga che contiene ESTRAZIONE ... DAL ... AL, si introduce un'istruzione condizionale che ANNULLA ESTRAZIONE, se l'estrazione non è quella settima.
Per controllare se l'estrazione è la settima, si confronta l'estrazione corrente (EST) con la prima settimana del mese alla quale si aggiunge 6 (prima settimana più 6, dà il numero della settima settimana).

    DBASE 3
    ESTRAZIONE DAL 01-01-98 AL 31-12-98
      SE EST <> PSETT+6 ALLORA ANNULLA ESTRAZIONE
      SCRIVI DATA()
    PROSSIMA ESTRAZIONE
    

Per la penultima estrazione, si può procedere in modo analogo, diminuendo la ultima settimana di 1 (USETT), ma tenendo conto che la variabile USETT è corretta. In effetti, ULTIMO riconosce l'ultima settimana soltanto quando è inserita almeno una del mese successivo a quello con il quale si opera.

    DBASE 3
    ESTRAZIONE DAL 1-1-98 al 31-12-98
      SE EST <> USETT-1 ALLORA ANNULLA ESTRAZIONE
      SE USETT > NUMUEST ALLORA ANNULLA ESTRAZIONE
      SCRIVI DATA()
    PROSSIMA ESTRAZIONE
    
Utenti di Ultimo per Win hanno a disposizione tutte le settimane.

| Home | Ultimo | Club Ultimo | Appunti | Superenalotto | Metodi | Sistemi | Statistica | Utilità | Archivio | Link |