aus einem Array die kleinste Zahl herausfinden

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

Zitat von Aphton (Beitrag 1221103)

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)

Delphi-Quellcode:

  writeln(low(a) + kleinsteZahlAusArray(a));

Edit: Natürlich ist das nicht ernst gemeint :roll:
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!

[DeddyH]

Dann erzähl das mal meinem Delphi.

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;

procedure TFormTest.Button1Click(Sender: TObject);
var
  A: array[1..2] of integer;
begin
  A[1] := 200;
  A[2] := 100;
  ShowMessage(IntToStr(kleinsteZahlAusArray(A)));
end;

Kompiliert und liefert 1 zurück (wobei 2 ja richtig wäre).

[Aphton]

@Dedddy 1 ist 0 basiert gleich 2
0 wäre 1

[DeddyH]

Ich weiß selbst, dass Open Arrays 0-basiert sind. Das bedeutet aber auch, dass es so nicht funktionieren kann, da sich je nach Array-Definition die Indizes verschieben. Aber sind wir jetzt nicht etwas weit weg vom eigentlichen Thema?

[baumina]

Allein dieses random ist mir echt ein Rätsel.

[Aphton]

Ich glaub das ursprüngliche Problem wurde bereits gelöst?
Ich wollt nur ein bisschen Unfug treiben xD
Btw lies nochmal meinen ursprünglichen Beitrag, hab was dazueditiert!

[p80286]

Zitat:

Zitat von baumina (Beitrag 1221119)

Allein dieses random ist mir echt ein Rätsel.

Mit "random" wird der Index des kleinsten Wertes vorgeschlagen,wenn's nicht stimmt goto Anfang.
Irgendwann hast Du die Lösung.

(Mir gefällt so ein Blödsinn)Gruß
K-H

[baumina]

Wenn ihr das ganze in "Klatsch und Tratsch" verschiebt, OK.

Ansonsten hasse ich Foren in denen man sich auf der Suche nach einer (beruflich) wichtigen Lösung, dumm und dämlich durch derartige Quatschbeiträge lesen muss.

[Furtbichler]

Zitat:

Zitat von baumina (Beitrag 1221125)

Ansonsten hasse ich Foren in denen man sich auf der Suche nach einer (beruflich) wichtigen Lösung, dumm und dämlich durch derartige Quatschbeiträge lesen muss.

Erstens: Olle Spaßbremse.
Zweitens: Wenn Du beruflich die Lösung zum Problem "aus einem Array die kleinste Zahl herausfinden" suchst, solltest Du dir überlegen, ob Du deine fachlichen Stärken im derzeitigen Beruf optimal ausnutzt.
Drittens: Locker. Immer locker bleiben.

[Bjoerk]

Wow. Kaum vergehen 4 Jahre, schon ist die kleinste Zahl eines Array’s gefunden. :-D

[Furtbichler]

Zitat:

Zitat von Bjoerk (Beitrag 1221143)

Wow. Kaum vergehen 4 Jahre, schon ist die kleinste Zahl eines Array’s gefunden. :-D

Gut Ding will Weile. Dafür ist es dann auch nicht nur die kleinste, sondern die allerkleinste.

[baumina]

Zitat:

Zitat von Furtbichler (Beitrag 1221133)

... solltest Du dir überlegen, ob Du deine fachlichen Stärken im derzeitigen Beruf optimal ausnutzt.

Autsch, das hat gesessen. Ich ziehe mich mal eine Weile verwundet in eine Ecke zurück.