Selectionsort - Problem mit richtiger Zuweisung der Werte

[p80286]

maxi := high(Werte[i]); wofür soll das gut sein?

Gruß
K-H

[thechus]

Hey,

okay ich habe folgendes herausfinden können:
Die Prozedur funktioniert von der Logik her einwandfrei.
Das Problem ist der zugewiesene Wert für "maxi".

Ich muss ihn irgendwie mit den Werten in Verbindung bringen...
Setzte ich die Konstante max auf 100 und weise maxi den Array zu, funktioniert die Prozedur...

Das mal als kleine Zwischennachricht... falls es euch nicht schon längst aufgefallen ist

Gruß,
thechus

[p80286]

Zitat von thechus:

Ich muss ihn irgendwie mit den Werten in Verbindung bringen...

Dafür gibt es Parameter.

Gruß
K-H

[thechus]

Code:

procedure TForm1.SelectionSort(var Werte: Array of Integer);
var i,k,maxi,j,wert:integer;
begin
 maxi := high(Werte);
 for i := 0 to maxi - 1 do
  begin
   wert := werte[i];
   k := i;
   for j := i + 1 to maxi do if werte[j] < wert then
    begin
     wert := werte[j];
     k := j;
   end;
  werte[k] := werte[i];
  werte[i] := wert;
  end;
end;

Funktioniert!
DANKE!!!

Gruß,
thechus

[thechus]

Nein funktioniert nicht...
Omg was ist denn da passiert...

Der sortiert nur noch lauter Nullen.
Ich muss den Array von der Größe her einfach an den die Menge der Elemente aus Anzahl anpassen oder diese unsortierten Werte direkt auslesen können..
Aber wie??

gott.. mist

Gruß,
thechus...

[Luckie]

Ach, da ist noch was falsch: Dein Beitragstitel. Bitte ändere ihn doch so, dass man erkennen kann um was es geht.

[thechus]

Done

[Furtbichler]

Nein, nein, nein.

maxi soll... die ANZAHL der Elemente enthalten (-1) !

Wenn also deine Variable 'Anzahl' die Anzahl der Element enthält, die sortiert werden sollen, dann solltest Du... welche Anweisung schreiben?

(Schaffste schon).

[thechus]

Grr... ich komm nur wage drauf ...
Mein Ansatz wäre sowas wie " maxi := high(werte[anzahl])" aber das scheint auch irgendwie Mist zu sein.

Die Prozedur, die die zufälligen werte ausgibt ist folgende:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
ListBox1.clear;
randomize;
zahl := random(Anzahl);
if combobox1.itemindex = 0 then
begin
 Anzahl:=StrToInt(Edit1.Text);
 randomize;
 for i := 1 to Anzahl do
  begin
   werte[i] := random(Anzahl);
   if i < 500 then
   Listbox1.items.add(inttostr(werte[i]));
  end;
end;
[...]

Ich steh da so richtig auf dem Schlauch grad..
aber danke für deine Geduld.. ich brüte weiter.

Gruß,
thechus

[thechus]

Wolltest du vielleicht auf:

maxi := high(Anzahl);

hinaus?
Anzahl ist ja ein fester Wert (z.b. 100).
Da hätte man für high doch stets 100 raus.
anzahl ist aber nur die Anzahl der Zahlen, die alle einen Wert zwischen 0 und 100 haben können.
Die höchste Zahl kann auch mal 98 sein.

Oh man

Ich hoffe das war verständlich.
Danke für die Hilfe.

Gruß,
thechus