Differenze tra le versioni di "Gestione di una coda mediante array in modo circolare"

Da Gambas-it.org - Wikipedia.
(Nuova pagina: Avendo un array, si effettua su di esso un'operazione in modo ''circolare'', cosicché l'ultimo elemento vada in testa spostando gli altri elementi di una posizione all'interno dell'ar...)
 
Riga 21: Riga 21:
 
   
 
   
 
   Dim j As Byte
 
   Dim j As Byte
 +
 
   
 
   
 
  <FONT color=#006400>' ''E' sufficiente aggiungere all'indice 0, ossia in testa, il valore dell'ultimo elemento:''</font>
 
  <FONT color=#006400>' ''E' sufficiente aggiungere all'indice 0, ossia in testa, il valore dell'ultimo elemento:''</font>
     a.Add(a[3], 0)
+
     <FONT color=#B22222>a.Add(a[3], 0)</font>
 
    
 
    
 +
 
   For j = 0 To 3
 
   For j = 0 To 3
 
     Print a[j]
 
     Print a[j]

Versione delle 18:02, 7 nov 2012

Avendo un array, si effettua su di esso un'operazione in modo circolare, cosicché l'ultimo elemento vada in testa spostando gli altri elementi di una posizione all'interno dell'array medesimo. Si otterrà, così, un effetto rotatorio degli elementi presenti nell'array.

Facciamo l'esempio di un array di quattro elementi:

Private a As New Byte[]


Public Sub Form_Open()

 Dim j As Byte
 
' Impostiamo l'array di quattro elementi:
 For j = 0 To 3
   a.Add(10 * j)
   Print a[j]
 Next

End


Public Sub Button1_Click()

 Dim j As Byte


' E' sufficiente aggiungere all'indice 0, ossia in testa, il valore dell'ultimo elemento:
   a.Add(a[3], 0)
 

 For j = 0 To 3
   Print a[j]
 Next
 
End