aus einem Array die kleinste Zahl herausfinden

[Foxi1896]

@baumina: Danke, stimmt so verstehte ich es =)
Was könnte man den machen um es profensioneller aussehen zu lassen (auch wenn es mir eigentlich egal ist wie es aussieht.

@DeddyH: Geht das auch bei Lazarus? Hab gerade mal in den Einstellungen geschaut und finde nichts was dem entspricht.

Wenn es eine leichte Methode gibt. Nicht Abhängig vom Fixen Wert zu sein wäre es super. Wenn nicht auch egal bau ich halt eine zweiten/dritten Button ein (Meine Werte könnten 8 , 12 , 16 werden.)

[baumina]

Professioneller ist sicherlich DeddyH's Lösung. An der ist meines Erachtens nichts auszusetzen.

[Foxi1896]

DANK EUCH!!!
Jetzt versteh ich glaube auch die andere Variante.

[DeddyH]

Danke für die Blumen, ich habe den Code trotzdem noch leicht modifiziert. Leider konnte ich nicht herausfinden, wie man bei Lazarus die Breichsprüfung aktiviert bzw. deaktiviert, vermutlich geht es über Compilerschalter.

[baumina]

Ja, Foxi, das Wichtigste beim Programmieren lernen ist nicht stupide Abtippen, sondern Verstehen. Ich finde es gut, dass du nicht nur die fertige Lösung genommen hast, sondern dich damit befasst hast sie auch zu verstehen.

[Aphton]

Delphi-Quellcode:

function kleinsteZahlAusArray(A: Array of Integer): Integer;
label
  neuerVersuch;
var
  i: Integer;
begin
  neuerVersuch:
  Result := Random(Length(A));
  for i := 0 to High(A) do
    if i <> Result then
      if A[i] < A[Result] then
        goto neuerVersuch;
end;

Wer kanns verschlimmbessern?

[baumina]

Random, GoTo? Was macht die Funktion für einen Sinn? Ist das eine ernst gemeinte Frage?

[gammatester]

Zitat von Aphton:

Wer kanns verschlimmbessern?

Das muß man nicht verschlimmbessern, da es eh schon falsch ist. Du lieferst einen 0-basierten Index zurück (und nicht den kleinsten Wert), was zB bei einem array[1..1] of integer gnadenlos in die Hose geht.

[Aphton]

Ähm also folgendes lässt sich kompilieren:

Delphi-Quellcode:

var
  a: Array[1..1] of Integer = (5);

begin
  writeln(kleinsteZahlAusArray(a));
  readln;
...

(der Index ist jedoch eben 0 basiert)

  writeln(low(a) + kleinsteZahlAusArray(a)); Edit: Natürlich ist das nicht ernst gemeint
Aber das mit dem Index ist jz schon ein interessanteres Problem. Kann ich in der aufgerufenen Funktion eig. per Low() iwie den Startwert ermitteln? Weil so klappt das ja nicht - also drinnen nicht, außerhalb der Funktion schon) - ohne dafür einen eigenen Typ definieren zu müssen!