unit reihe;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls;
type
TForm1 =
class(TForm)
BitBtn1: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Label2: TLabel;
Edit4: TEdit;
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
zahl1,zahl2,zahl3,zahl4: Integer;
public
{ Public-Deklarationen }
end;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
zahlen:
Array[0..3]
of Integer;
i,j: Byte;
hilf: Integer;
begin
zahlen[0]:=StrToInt(Edit1.Text);
zahlen[1]:=StrToInt(Edit2.Text);
zahlen[2]:=StrToInt(Edit3.Text);
zahlen[3]:=StrToInt(Edit4.Text);
for i:= length(zahlen)-1
downto 0
do
for j:= 1
to i
do
begin
if zahlen[j] < zahlen[j-1]
then
begin
hilf:= zahlen[j-1];
zahlen[j-1]:= zahlen[j];
zahlen[j]:= hilf;
end;
end;
zahl1:=zahlen[0];
zahl2:=zahlen[1];
zahl3:=zahlen[2];
zahl4:=zahlen[3];
end;
end.