Suchergebnisse
Suchergebnisse 1-1 von insgesamt 1.
-
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]…