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

var
Form1: TForm1;
zahl:array[1..6] of integer;
zahl1:integer;
doppelt:Boolean;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
zahl1:=Strtoint(edit1.text);
cop:=zahl1
repeat
zahl1:=max-min;
until doppelt;
edit1.text:=inttostr(edit1.text);
end;

end.                    

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

var
  Form1: TForm1;
  zahl:array[1..6] of integer;
  a,b:integer;
  doppelt:Boolean;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
cop:=zahl1
repeat
Zn+1 = a - b
until Zn = Zn+1
edit1.text:=inttostr(edit1.text);
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
begin
zahl[1..4]:=0;
zahl[1] := Wert mod 10000 div 1000;
zahl[2] := Wert mod 1000 div 100;
zahl[3] := Wert mod 100 div 10;
zahl[4] := Wert mod 10;
for i:= 1 to 3 do
for j:=i+1 to 4 do
if zahl[i]>=zahl[j]:=zahl[j]];zahl[j]:=park;
zahl[1] := Wert mod 10000 * 1000;
zahl[2] := Wert mod 1000 * 100;
zahl[3] := Wert mod 100 * 10;
zahl[4] := Wert mod 10;
end;
edit2.text:=inttostr(zahl[1..4]);                    

1:

<span class="inlineSyntax"><span class="codecomment">{PROTECTTAGeaa3f728dd1e8b132a085600ba023c4c}</span></span>                    

1:

var Test: integer;                    

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:

type
  TZiffern = array [1 .. 4] of Byte;
  TDirection = (drAsc (*aufsteigend*), drDesc (*absteigend*));

function Zerlege(Wert: integer): TZiffern;
begin
  Result[1] := Wert mod 10000 div 1000;
  Result[2] := Wert mod 1000 div 100;
  Result[3] := Wert mod 100 div 10;
  Result[4] := Wert mod 10;
end;

procedure Sort(var Ziffern: TZiffern; Direction: TDirection);
begin
 
end;

function ZiffernToZahl(Ziffern: TZiffern): integer;
begin
  Result := Ziffern[1] * 1000 + Ziffern[2] * 100 + Ziffern[3] * 10 + Ziffern[4];
end;

function MaxWert(Ziffern: TZiffern): integer;
begin
  Sort(Ziffern, drDesc);
  Result := ZiffernToZahl(Ziffern);
end;

function MinWert(Ziffern: TZiffern): integer;
begin
  Sort(Ziffern, drAsc);
  Result := ZiffernToZahl(Ziffern);
end;                    

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;
  TZiffern=array[1..4] of byte //hier fehler;
  TDirection = (drAsc (*aufsteigend*), drDesc (*absteigend*)) // hier fehler;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Result[1] := Wert mod 10000 div 1000; // hier 2 fehler
  Result[2] := Wert mod 1000 div 100;
  Result[3] := Wert mod 100 div 10;
  Result[4] := Wert mod 10;
  end;
  for i:= 1 to 3 do // hier fehler
  for j:=i+1 to 4 do
  if result[1..4]>=zahl[j] then begin
  park:=result[1..4];zahl[i]:=zahl[j];zahl[j]:=park; // hier fehler
  end; // hier fehler
  Result := Ziffern[1] * 1000 + Ziffern[2] * 100 + Ziffern[3] * 10 + Ziffern[4];
  end;// hier fehler
  Sort(Ziffern, drDesc);
  Result := ZiffernToZahl(Ziffern);
  end;
  Sort(Ziffern, drAsc);
  Result := ZiffernToZahl(Ziffern);
  end;
  edit2.text:=inttostr(result[1..4]);
end;

end.                    

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

 

Lese Eingabe in String s
Integer z = s
Integer a, b, z_alt

wiederhole >
  z_alt = z
  s = z
  Sortiere s
  a = s
  Invertiere s
  b = s
  z = a - b
< solange z <> z_alt