ER zerlegt die zahl.
Also wie soll ich fortsetzen, das mit dem ordnen.
Bubblesort. Ich weiß das es eine 4Stellige zahl ist. Also d.h. for i:= 1 to 4 do
Delphi-Quellcode:
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;
repeat
for i:=1 to 4-1 do
for j:=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;
until park=i>1
end;
edit so?
Das ist doch schon mal ganz gut. Schmeiß das repeat until raus und mach aus den a[i+1] a[j], dann hast du den Selectionsort.
Edit: Und aus dem park ein integer und aus a, b array [1..4] of integer statt string und StrToInt(Copy(..