Titolo: Programma una ricerca sugli array!
Categoria: Codice |
|
Ultimo Aggiornamento: 31/08/04 |
Ecco uno spunto su come effettuare una ricerca su un array: nell'array di partenza vengono cancellati gli elementi che non servono, e così se la dimensione dell'array diventa zero, la ricerca ha risultato nullo.
Al metodo vengono passati come parametri due puntatori, uno all'array (si suppone non vuoto, altrimenti bisogna aggiungere questo controllo) e uno all'elemento cercato.
C_POINTER($1;$2;$puntatoreArray_ptr;$puntatoreValore_ptr)
$puntatoreArray_ptr:=$1
$puntatoreValore_ptr:=$2
C_LONGINT($posizione;$PrimoDaControllare_l;$dimensioneArray_l)
$posizione:=1
$PrimoDaControllare_l:=0
Repeat $PrimoDaControllare_l:=$PrimoDaControllare_l+1
$posizione:=Find in array($puntatoreArray_ptr->;$puntatoreValore_ptr->;$PrimoDaControllare_l)
If ($posizione>0)
DELETE ELEMENT($puntatoreArray_ptr->;$PrimoDaControllare_l;$posizione-$PrimoDaControllare_l)
End ifUntil ($posizione<0)
$dimensioneArray_l:=
Size of array($puntatoreArray_ptr->)
If ($dimensioneArray_l>=$PrimoDaControllare_l)
DELETE ELEMENT($puntatoreArray_ptr->;$PrimoDaControllare_l;($dimensioneArray_l-$PrimoDaControllare_l)+1)
End if
Inviato da: PierPaolo Sichera |
|
Visite: 12425 |
Se accedi con utente e password, puoi aggiungere dei commenti.