Bubble Sort und Sortieren durch Auswählen in Delphi


[code:1]
////// Die Procedure wählt 10 Zahlen von 1000 aus
procedure TForm1.Button1Click(Sender: TObject);
var k : integer;
begin
randomize;
for k := 1 to 10 do
begin
zahl[k] := random ( 1000 ) + 1 ;
memo1.lines.Add( inttostr(zahl[k]));
end;

end;

////// Nun kommt das Bubble Sort Verfahren

procedure TForm1.Button2Click(Sender: TObject);
var
n,k,i, speicher : integer;
begin

for k := 1 to 10 do
begin
for n := 1 to 9 do
begin
if zahl[n] > zahl[n+1] then
begin
speicher := zahl[ n+1 ];
zahl[n+1] := zahl[n];
zahl[n] := speicher;
end;
end;
end;
for i:= 1 to 10 do memo2.Lines.Add(inttostr(zahl));
end;



////// Sortieren durch Auswählen

procedure TForm1.Button4Click(Sender: TObject);
var
l, k, n, i, speicher, nspeicher : integer;
z : array[1..10] of integer;
begin

for i := 1 to 10 do
begin
speicher := zahl[1];
for k := 1 to 10 do
begin
if zahl[k] < speicher then
begin
speicher:= zahl[k];
nspeicher:= k ;
end;
end;
zahl[nspeicher]:=1001;
z[i]:=speicher;
memo2.Lines.add ( inttostr( z[i]));
end;
end;
[/code:1]


Hoffe ihr habt viel Spaß damit