aus einem Array die kleinste Zahl herausfinden

[gangs-taas]

hey,
ich wollte euch fragen, ob es einen befehl oder eine einfache möglichkeit gibt aus einem array die kleinste zahl zu ermitteln ?

danke schonmal

[Teekeks]

mit schleife von vorne bis hinten durchgehen und die aktuell kleinste Zahl in eine Variable speichern (wenn du willst in eine weitere die entsprechende Indexnummer).

Gruß Teekeks

[Meflin]

Oder schneller : Array sortieren und erstes / letztes Element ausgeben.

[Aphton]

Zitat von Meflin:

Oder schneller : Array sortieren und erstes / letztes Element ausgeben.

Warum soll das schneller sein?
Beim Sortieren wird höchstwahrscheinlich das Array mehr als nur 1x durchlaufen;
Beim Suchen der kleinsten Zahl aber nicht

MfG

[jfheins]

Zitat von Meflin:

Oder schneller : Array sortieren und erstes / letztes Element ausgeben.

Schneller? Nö.

Sortieren braucht n*log(n)
Einmalige, lineare Suche O(n)

Falls man also nicht mehrmals das kleinste Element braucht, ist das Sortieren langsamer

Und da man einen konstanten Faktor vernachlässigen kann, ist das theoretisch sogar noch der Fall, wenn du 10 mal das kleinste Element suchst

[Wolfgang Mix]

Nimm die Variante von Teekeeks, am einfachsten mit 'ner FOR-Schleife.

Gruß

Wolfgang

[Dax]

Wobei 10 eine nicht weiter spezifizierte Konstante sei, die im Anwendungsfall auch den Wert 42 annehmen könnte *g*

[Wolfgang Mix]

Schau dir mal diesen Code aN, habe ich gerade mal gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl : array[1..1000] of integer;
    i,min:integer;
begin
   randomize;
   for i:= 1 to 10 do
   begin
     zahl[i]:=random(1000)+1;
   end;
   min:=1000;
   for i:= 1 to 10 do
   begin
     if zahl[i] < min then min:=zahl[i];
   end;
   edit1.Text:=IntToStr(min);
end;

Gruß

Wolfgang

[DeddyH]

Man könnte aber auch MinIntValue aus der Unit math benutzen

[Wolfgang Mix]