1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TBubblesortierer = class(TForm)
    Ueberschrift1: TLabel;
    Anzahl_label: TLabel;
    Anzahl_edit: TEdit;
    erstesmemo: TMemo;
    zweitesmemo: TMemo;
    fuellen_btn: TButton;
    ordnen_btn: TButton;
    schliessen_btn: TButton;
    procedure fuellen_btnClick(Sender: TObject);
    procedure ordnen_btnClick(Sender: TObject);
    procedure schliessen_btnClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Bubblesortierer: TBubblesortierer;

implementation

{$R *.dfm}

procedure tausche (var a,b : real);
var x:real;
begin
x:=a;
a:=b;
b:=x;
end;

procedure bubblesort (var aa: array of real; n1, n2 : Integer);
var i: Integer;
fertig: Boolean;
begin
repeat
  fertig:=true;
  for i := n1 to n2 - 1 do
  begin
  If aa[i]>aa[i+1] then begin
  tausche(aa[i], aa[i+1]);
  fertig:=false;
  end;
  end;
until fertig;
end;
procedure zeige(mm: Tmemo; aa:array of real);
var i: integer;
begin
  mm.Lines.Clear;
  for i := 0 to Length(aa) - 1 do   mm.Lines.Add(FloatToStr(aa[i]));
end;

procedure TBubblesortierer.ordnen_btnClick(Sender: TObject);
var aa: array of real;
n, i : Integer;
begin
 n:= StrToInt(Anzahl_edit.Text);
 setlength(aa,n);
 for i := 0 to n - 1 do       aa[i]:= StrToFloat(erstesmemo.lines[i]);
 bubblesort(aa, 0, n-1);
 zeige(zweitesmemo,aa);
end;

procedure TBubblesortierer.schliessen_btnClick(Sender: TObject);
begin
close;
end;


procedure TBubblesortierer.fuellen_btnClick(Sender: TObject);
var
i, anzahl: Integer;
aa: array of real;
begin
anzahl:= StrToInt(Anzahl_edit.text);
setlength(aa, anzahl);
for i := 0 to Anzahl - 1 do tausche (aa[i], aa[random(Anzahl)]);
zeige(erstesmemo,aa)
end;
end.                    

1:
2:
3:
4:
5:
6:
7:

procedure bubblesort (var aa: array of real);
var i: Integer;
fertig: Boolean;
begin
repeat
  fertig:=true;
  for i := low(aa) to high(aa) do                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TBubblesortierer.fuellen_btnClick(Sender: TObject);
 vari, anzahl: Integer;
 aa: array of real;
 beginanzahl:= StrToInt(Anzahl_edit.text);
 setlength(aa, anzahl);
 for i := 0 to Anzahl - 1 do tausche (aa[i], aa[random(Anzahl)]); 
 zeige(erstesmemo,aa)
end;