Sortiervorgang kleinste wert nach vorne holen

[de_vine]

Hallo,bitte um Hilfe!

ALSO:

Ich habe ein problem und zwar:

Ich habe ein ARRAY(Z)[1..100] mit zufallszahlen.
möchte die nun so ordnen,dass die kleinste Zahl in Z[1]
und die größte in Z[100]ist

habe bereits ein Programm geschrieben ABER es funktioniert irgenwie nicht
wenn ich die sortierten Zahlen in ein memo einblenden lasse
ist irgendwie die letzte Zahl immer 0 und die erste zahl Z[1]
WIRD DIE GRÖGERE VON DEN BEIDEN ERSTEN ZAHLEN :wall: :wall: :wall:

Mein nichts funktionsfähiges programm:

I:=1;
repeat
Begin
IF Z[I]<Z[I+1] then
hilf:=z[I];
Z[I]:=Z[I+1];
Z[I+1]:=hilf;
I:=I+1;
END;
UNTIL I=E+1;

DANKE IM VORAUS!!!!!!!!!!!

[Uwe Raabe]

Ich vermute, du willst einen Bubble-Sort implementieren:

Delphi-Quellcode:

for I:=1 to 100-1 do
  for J:=I+1 to 100 do 
    if Z[J] < Z[I] then begin
      Hilf := Z[I];
      Z[I] := Z[J];
      Z[J] := Hilf;
    end;

[de_vine]

was meinen sie mit [quote]implementieren:

[alzaimar]

[quote="de_vine"]was meinen sie mit

Zitat:

implementieren:

Wikipedia (klick!) hilft.

[de_vine]

hilft mir nicht weiter

[mkinzler]

Implemnetieren heisst einführen, umsetzen

[nahpets]

Hallo,

Zitat:

Zitat von de_vine

hilft mir nicht weiter

Zitat:

Zitat von Wikipedia

In der Softwareentwicklung ist die Implementierung das Umsetzen eines Algorithmus oder Softwareentwurfs in ein Computerprogramm nach Auswahl einer geeigneten Programmiersprache; siehe auch Softwaretechnik, Softwareentwicklung, Programmierung.

Implementierung = Umsetzen eines Algorithmus
Wenn man das tut "Umsetzen eines Algorithmus", redet man auch schonmal von Programmieren.

[Noedel]

damit wir dem armen kerl mal helfen ... ^^

Code:

procedure Tsortierverfahren.bubblesort;
var
  hilfe,i:longint;
  vertauscht:boolean;
begin
  // anzahl = obere grenze des arrays  
  Repeat
    vertauscht:=false;
    For i:=1 to anzahl-1 do
      IF kopie[i]>kopie[i+1] Then
        begin
         hilfe:=kopie[i];
         kopie[i]:=kopie[i+1];
         kopie[i+1]:=hilfe;
         vertauscht:=true;
        end;
        dec(anzahl);
     Until vertauscht=false;
end;

Das sortierverfahren nennt sich bubblesort :)

danach musst du nurnoch ausgeben...
PS. ein memo ist dafür wohl nicht das geeignetste object.... benutz besser ne listbox :)