AW: aus einem Array die kleinste Zahl herausfinden
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.
|
AW: aus einem Array die kleinste Zahl herausfinden
Delphi-Quellcode:
Wer kanns verschlimmbessern?
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; |
AW: aus einem Array die kleinste Zahl herausfinden
Random, GoTo? Was macht die Funktion für einen Sinn? Ist das eine ernst gemeinte Frage?
|
AW: aus einem Array die kleinste Zahl herausfinden
Zitat:
|
AW: aus einem Array die kleinste Zahl herausfinden
Ähm also folgendes lässt sich kompilieren:
Delphi-Quellcode:
(der Index ist jedoch eben 0 basiert)
var
a: Array[1..1] of Integer = (5); begin writeln(kleinsteZahlAusArray(a)); readln; ...
Delphi-Quellcode:
Edit: Natürlich ist das nicht ernst gemeint :roll:
writeln(low(a) + kleinsteZahlAusArray(a));
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! |
AW: aus einem Array die kleinste Zahl herausfinden
Dann erzähl das mal meinem Delphi.
Delphi-Quellcode:
Kompiliert und liefert 1 zurück (wobei 2 ja richtig wäre).
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; |
AW: aus einem Array die kleinste Zahl herausfinden
@Dedddy 1 ist 0 basiert gleich 2
0 wäre 1 |
AW: aus einem Array die kleinste Zahl herausfinden
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?
|
AW: aus einem Array die kleinste Zahl herausfinden
Allein dieses random ist mir echt ein Rätsel.
|
AW: aus einem Array die kleinste Zahl herausfinden
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! |
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:23 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz