Come trovare il numero più piccolo e più grande in un array?

Question

Ciao come posso trovare il numero più piccolo e più grande in delphi?

Supponiamo che io ho 10 numeri diversi memorizzati in un array:

Come posso trovare il numero più grande e più piccoli numeri nel mio array?

Answer 1

Passare semplicemente attraverso l'array in modo lineare. Mantieni una variabile per il valore minimo e uno per i valori massimi. Inizializza sia sul primo valore dell'array. Quindi, per ciascun elemento, aggiorna il valore minimo o massimo se quell'elemento è rispettivamente inferiore o superiore al valore minimo o massimo.

minval := a[0]; 
maxval := a[0]; 
for i := 1 to Count-1 do 
begin 
    if a[i]<minval then 
    minval := a[i] 
    else if a[i]>maxval then 
    maxval := a[i]; 
end; 

Ovviamente questo codice assume Count> 0.

Nota che è possibile utilizzare ugualmente le routine MinValue e MaxValue dall'unità Math.

Answer 2

Iterare attraverso la matrice confrontando il precedente trovato min e max.

Ecco uno snippet di codice. Seguendo il tuo chiarimento, ho modificato il codice per utilizzare Int64.

Min := High(Int64); 
Max := Low(Int64); 
for ThisNumber in MyArray do 
begin 
    if ThisNumber < Min then 
    begin 
    Min := ThisNumber; 
    end 
    if ThisNumber > Max then 
    begin 
    Max := ThisNumber; 
    end; 
end; 

E 'interessante notare che in MaxIntValue Math.pas è implementato come:

function MaxIntValue(const Data: array of Integer): Integer; 
var 
    I: Integer; 
begin 
    Result := Data[Low(Data)]; 
    for I := Low(Data) + 1 to High(Data) do 
    if Result < Data[I] then 
     Result := Data[I]; 
end; 

Questa implementazione, simile alla risposta di David, utilizza il primo valore di matrice come valore iniziale. Ciò presuppone che l'array abbia almeno un elemento. Si noti inoltre che il ciclo può quindi iniziare a Basso (Dati) + 1 e salvare un confronto non necessario. Per i dati che hai descritto, con 100 elementi in ogni array, otterresti un miglioramento della velocità dell'1%, nel migliore dei casi.

Se le prestazioni non sono importanti, MinIntValue e MaxIntValue saranno più concisi. Se lanci il tuo, allora stai solo iterando attraverso l'array una volta invece di due volte.