Sortieralgorithmus ARRAY

[Chiri]

Hallo
ich muss die Aufgabe lösen: In ein ARRAY sind durch einen Zufallsgenerator 20 Zahlen einzutragen, die im Wertebereich 1≤ x ≤1000 liegen.
ich hab auch schon angefangen aber mir ist das Problem, es sortiert sich schon alles von Anfang an.
Wie kann ich das beheben?

Code: Alles auswählen

var
  Form1: TForm1;
  i,a,v,j:integer;
  S:String;
  feld:Array[0..20] of integer;  
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
     for i:= 1 to 20 do
 
   begin
     feld[i]:=Random(1000)+1;
     end;
      for i:=low(feld) to high(feld) do
    for j:= 1 to i do
  if feld[j-1] > feld[i] then
 
 begin
    v:=feld[j-1];
    feld[j-1]:=feld[i];
    feld[i]:=v;
     end;
 
   for v:= 1 to 20 do
  begin
    S:=S+IntToStr(feld[v])+', ';
    end;
 
  edit1.text:=S;
  end;                       

[theo]

Passt doch alles, oder? Was heisst "es sortiert sich schon alles von Anfang an"?

[Chiri]

Naja sobald ich auf den Button klicke sind es zwar verschiedene Zahlen, diese sind jedoch schon alle sortiert.

[theo]

Naja sobald ich auf den Button klicke sind es zwar verschiedene Zahlen, diese sind jedoch schon alle sortiert.

Kann es sein, dass du keine blasse Ahnung hast von dem Code, den du "geschrieben" hast?

[Chiri]

ich weiß schon, was ich da selber geschrieben hab. Wir sollen es so prgrammieren, dass beim 1. buttonklick die zufallszahlen in unsortierter reihenfolge erscheinen und beim 2. sollen sie sich sortieren. Nur das Problem war: mir hat man zuerst gesagt, dass die Zahlen sich sofort sortieren sollen... deswegen hab ich das Programm SO geschrieben, aber muss bis morgen wissen, wie das erst beim 2. Buttonklick sortiert wird!

[theo]

Wenn du den Code verstehst, erübrigt sich eigentlich deine Frage.
Wo liegt denn das Problem?

[Chiri]

Ich weiß nicht wie ich das umschreiben muss damit sich die zahlen erst beim 2. Buttonklick sortieren!

[theo]

Ich weiß nicht wie ich das umschreiben muss damit sich die zahlen erst beim 2. Buttonklick sortieren!

Dann verstehst du aber nicht, was du da geschrieben hast. Ich denke das ist eher eine Frage für deinen Lehrer.
In diesem Forum werden eigentlich keine Hausaufgaben fixfertig gelöst und bei Adam und Eva fangen wir auch nicht an mit erklären.
Sorry!