Differenze tra le versioni di "Conoscere il valore numerico più alto contenuto da un vettore"

Da Gambas-it.org - Wikipedia.
Riga 22: Riga 22:
  
 
====Con apposita scansione del vettore all'interno di ciclo====
 
====Con apposita scansione del vettore all'interno di ciclo====
Questa modalità prevede la scansione del vettore per cercare il vaore numerico maggiore:
+
Questa modalità prevede la scansione del vettore per cercare il valore numerico maggiore:
  Private max As Integer = -2147483648
+
  Private imax As Integer = -2147483648
 
   
 
   
 
   
 
   
Riga 34: Riga 34:
 
    
 
    
 
   For b = 0 To ii.Max
 
   For b = 0 To ii.Max
     If ii[b] > max Then max = ii[b]
+
     If ii[b] > imax Then imax = ii[b]
 
   Next
 
   Next
 
    
 
    
   Print "Il numero maggiore immesso è: "; max
+
   Print "Il numero maggiore immesso è: "; imax
 
    
 
    
 
  '''Next'''
 
  '''Next'''

Versione delle 05:02, 14 giu 2018

Per conoscere il valore numerico più alto contenuto da un vettore, possiamo adottare almeno due modalità.


Uso del metodo .Sort()

Questa modalità prevede il ricollocamento dei valori presenti mediante il metodo .Sort() del vettore in ordine .discendente. Pertanto il nuovo valore preente nel primo elemento del vettore sarà il valore numerico più alto fra tutti.


Esempio:

Public Sub Main()
 
 Dim ii As Integer[]
 
  ii = [11, 33, 77, 88, 22, 66, 44, 55]
  
  ii.Sort(gb.Descent)
  
  Print "Il numero maggiore immesso è: "; ii[0]
   
End


Con apposita scansione del vettore all'interno di ciclo

Questa modalità prevede la scansione del vettore per cercare il valore numerico maggiore:

Private imax As Integer = -2147483648


Public Sub Main()

 Dim b As Byte
 Dim ii As Integer[]
 
  ii = [11, 33, 77, 88, 22, 66, 44, 55]
  
  For b = 0 To ii.Max
    If ii[b] > imax Then imax = ii[b]
  Next
  
  Print "Il numero maggiore immesso è: "; imax
  
Next