1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

var
  Form1: TForm1;
  i, j, zahl1, zahl2, differenz:integer;
  park, zahltext, zahltexteins, zahltextzwei:string;
  a,b:array[1..4] of string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
zahltext:=edit1.text;
for i:=1 to 4 do
begin
a[i]:=copy(zahltext,i,1);
b[i]:=copy(zahltext,i,1);
end;
for j:=i+1 to 4 do
if a[i]>=b[i] then begin
park:=a[i];a[i]:=b[i];b[i]:=park;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

8 9 4 6-  i j
9 8 4 6-  1 2
4 8 9 6-  1 3
4 8 9 6-  1 4
4 8 9 6-  1 4
-
4 9 8 6-  2 3
4 6 9 8-  2 4
4 6 9 8-  2 6
4 6 9 8-  2 7
-
4 6 8 9-  3 4                    

1:
2:
3:
4:
5:

8 9 4 6-  i j
9 8 4 6-  1 2
4 8 9 6-  1 3
4 8 9 6-  1 4
4 8 9 6-  1 4                    

1:
2:

if a[i]>max then max:=a[i];
if b[i]>min then min:=a[i];                    

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:

var
  Form1: TForm1;
  i, j, zahl1, zahl2, differenz:integer;
  park, zahltext, zahltexteins, zahltextzwei, max, min,s:string;
  a,b:array[1..4] of string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
zahltext:=edit1.text;
for i:=1 to 4 do
begin
a[i]:=copy(zahltext,i,1);
b[i]:=copy(zahltext,i,1);
end;
for i:=1 to 4 do
if a[i]>=a[j] then begin
park:=a[i];a[i]:=a[j];a[j]:=park;
end;
park:=zahltexteins;
if b[i]<=b[j] then begin
min:=b[i];b[i]:=b[j];b[j]:=min;
min:=zahltextzwei;
differenz:=zahltexteins-zahltextzwei; // wieso fehler
edit2.text:=string(a[i]);                    

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:

var
  Form1: TForm1;
  i, j, zahl1, zahl2, differenz:integer;
  park, zahltext, zahltexteins, zahltextzwei, max, min,s:string;
  a,b:array[1..4] of string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
zahltext:=edit1.text;
for i:=1 to 4 do
begin
a[i]:=copy(zahltext,i,1);
b[i]:=copy(zahltext,i,1);
end;
zahl1:=strtoint(edit1.Text);
zahl2:=strtoint(edit2.text);
zahl1:=0;zahl2:=0;
for i:=1 to 4 do
for j:=i+1 to 4 do
if a[i]>=a[j] then begin
park:=a[i];a[i]:=a[j];a[j]:=park;
end;
zahltext:=zahltexteins;
if b[i]<=b[j] then begin
min:=b[i];b[i]:=b[j];b[j]:=min;
end;
zahltexteins:=zahltextzwei;
differenz:=zahl1-zahl2;
edit2.text:=inttostr();                    

1:
2:

8 9 4 6
- -                    

1:
2:
3:

8 9 4 6
- -
9 8 4 6                    

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

8 9 4 6
- -
9 8 4 6
- 8 - 6
4 8 9 6
4 - 9 -
4 6 9 8
4 6 - -
4689                    

1:
2:

8 1 9 4 6
- -                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

8 1 9 4 6
- - 
1 8 9 4 6
  - -
1 9 8 4 6
  -   -
1 4 8 9 6
    -   -
1 4 6 9 8
      - -
1 4 6 8 9                    

1:
2:
3:
4:
5:

- - 
  - -
  -   -
    -   -
      - -                    

1:
2:
3:
4:
5:

- -
  - -
    - -
      - -
        - -                    

1:
2:
3:
4:
5:

- -
-   -
-     -
-       -
-         -                    

1:

- -                    

1:
2:

-   -
-     -                    

1:

  - -                    

1:

  -   -                    

1:

    - -                    

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

- -
-   -
-     -
  - -
  -   -
    - -                    

1:
2:
3:

... 4 9 5 6 ...
    ^
    i                    

1:
2:
3:

for i:=1 to 4 do
for j:=1 to 4 do
if a[i]>a[j] then begin // wenn zahl[i] größer als zahl[j] ist dann soll er tauschen.                    

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

for i:=1 to 4 do
for j:=1 to 4 do
repeat
if a[i+1] > a[i+2] then begin
if a[i+2] > a[i+3] then begin
if a[i+3] > a[i+4] then begin
until a[i] < a[j];                    

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

for j:=i+1 to 4 do
if a[i+1] > a[i+2] then begin
if a[i+2] > a[i+3] then begin
if a[i+3] > a[i+4] then begin
park:=a[i];
a[i]:=a[j];
a[j]:=park;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var i:integer;park:string;doppelt:boolean;
begin
park:=0;
repeat
for i:=1 to 4 do
if a[i] > a[i + 1] then begin
park:= a[i];
a[i]:= a[i+1];
a[i + 1]:= park;
doppelt:=false;
until doppelt;                    

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:

var
  Form1: TForm1;
  i,j,zahl1,zahl2,differenz:integer;
  park,spielplatz,zahltext,zahltexteins,zahltextzwei:string;
  doppelt:boolean;
  a,b:array[1..4] of string;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
zahltext:=edit1.text;
for i:=1 to 4 do
begin
//zerlegung
a[i]:=copy(zahltext,i,1);
b[i]:=copy(zahltext,i,1);
end;
// absteigend sortieren
for i:=1 to 3 do
for j:=i+1 to 4 do
if a[i]>=a[j] then begin
park:=a[i];a[i]:=a[j];a[j]:=park;
end;
zahltexteins:=zahltext;// was in zahltexteins steht in zahltext speichern
// aufsteigend sortieren
for i:= 1 to 3 do
for j:=i+1 to 4 do
if b[i]<=b[j] then begin
park:=b[i];b[i]:=b[j];b[j]:=park;
end;
zahltextzwei:=zahltext;
differenz:=Strtoint(zahltexteins)-Strtoint(zahltextzwei);// differenz der beiden zahlen
edit2.text:=(differenz);// ausgabe
end;                    

1:
2:

for i := 1 to 3 do
  ShowMessage(IntToStr(i));                    

1:
2:
3:

ShowMessage('1');
ShowMessage('2');
ShowMessage('3');                    

1:
2:

for i := 1 to 4 do
  if (zahl[i] > zahl[i+1]) then ShowMessage('tauschen');                    

1:
2:
3:
4:

if (zahl[1] > zahl[1+1]) then ShowMessage('tauschen');
if (zahl[2] > zahl[2+1]) then ShowMessage('tauschen');
if (zahl[3] > zahl[3+1]) then ShowMessage('tauschen');
if (zahl[4] > zahl[4+1]) then ShowMessage('tauschen');                    

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

var
  zahl: array[1..4] of Integer;
  i: Integer;
begin
  zahl[1] := 4;
  zahl[2] := 9;
  zahl[3] := 5;
  zahl[4] := 6;
  for i := 1 to 4 do
    if (zahl[i] > zahl[i+1]) then ShowMessage('tauschen');                    

1:
2:
3:
4:

if (zahl[1] > zahl[2]) then ShowMessage('tauschen');
if (zahl[2] > zahl[3]) then ShowMessage('tauschen');
if (zahl[3] > zahl[4]) then ShowMessage('tauschen');
if (zahl[4] > zahl[5]) then ShowMessage('tauschen');                    

1:

if (zahl[4] > zahl[5]) then ShowMessage('tauschen');                    

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

var
  zahl: array[1..4] of Integer;
  i: Integer;
begin
  zahl[1] := 4;
  zahl[2] := 9;
  zahl[3] := 5;
  zahl[4] := 6;
  for i := 1 to 3 do
    if (zahl[i] > zahl[i+1]) then ShowMessage('tauschen')                    

1:

var Ziffer: array of Integer                    

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

var
  zahl: array[1..4] of Integer;
  i: Integer;
begin
  zahl[1] := 4;
  zahl[2] := 9;
  zahl[3] := 5;
  zahl[4] := 6;
  for i := 1 to 3 do
    if (zahl[i] > zahl[i+1]) then ShowMessage('tauschen')                    

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

var
  zahl: array[1..4] of Integer;
  i: Integer;
begin
  zahl[1] := 4;
  zahl[2] := 9;
  zahl[3] := 5;
  zahl[4] := 6;
  for i := 1 to 3 do
    if (zahl[i] > zahl[i+1]) then begin                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

var
  zahl: array[1..4] of Integer;
  i,park: Integer;

begin
zahl[1] := 4;
zahl[2] := 9;
zahl[3] := 5;
zahl[4] := 6;
for i := 1 to 3 do
if (zahl[i] > zahl[i+1]) then begin
park := zahl[i];
zahl[i] := zahl[i + 1];
zahl[i + 1] := park;

end;


end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var
  zahl: array[1..4] of Integer;
  i, park: Integer;
begin
  zahl[1]:= 4;
  zahl[2]:= 9;
  zahl[3]:= 5;
  zahl[4]:= 6;
  for i:= 1 to 3 do
    if (zahl[i] > zahl[i + 1]) then begin
      park:= zahl[i];
      zahl[i]:= zahl[i + 1];
      zahl[i + 1]:= park;
    end;
end;                    

1:
2:
3:
4:

  zahl[1]:= 5;
  zahl[2]:= 3;
  zahl[3]:= 9;
  zahl[4]:= 1;                    

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

(der * ist zwischen den beiden Ziffern die verglichen werden)

Wert    |1|2|3|4|  << zahl[...]
von     +-+-+-+-+
i:      | | | | |
i=1      5*3 9 1   5>3, tauschen
i=2      3 5*9 1   5<9, lassen
i=3      3 5 9*1   9<1, tauschen
Ergebnis:
         3 5 1 9