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 :-D

[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 :P : Array sortieren und erstes / letztes Element ausgeben.

[Aphton]

Zitat:

Zitat von Meflin

Oder schneller :P : 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:

Zitat von Meflin

Oder schneller :P : 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 :P

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

[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]

;-)