Programm Hilfe

[boxer123]

genau da weiß ich nicht mehr weiter vielleicht eine hilfestellung

[DeddyH]

Delphi-Quellcode:

Durchlauf := 1;
repeat
  //wir sagen mal von vornherein: wir sind fertig
  done := true;
  for i := Low(DeinArray) to High(DeinArray) - Durchlauf do
    if DeinArray[i] > DeinArray[i + 1] then
      begin
        //tauschen (selbst implementieren)
        //wir mussten tauschen, also doch nicht fertig
        done := false;
      end;  
  Durchlauf := Durchlauf + 1;
until done; //nix mehr getauscht -> fertig

[edit] P.S.: Das ist aufsteigende Sortierung, für absteigende muss der Vergleich genau anders herum sein. [/edit]

[boxer123]

jetzt aber oder?

[DeddyH]

Es ist nicht sehr zielführend, wenn Du "alte" Posts editierst und man erst suchen muss, wo der geänderte Code jetzt steht. Außerdem subtrahierst Du ja jetzt fix immer 1, im Gegensatz zu mir. Und ein wenig Formatierung und Einrückung täte Deinem Code gut. Versuch doch erst einmal, den Bubblesort zu begreifen, dann siehst Du auch, wie Du ihn implementieren musst.

[boxer123]

Delphi-Quellcode:

doppelt:=true;
for i:= Low(a) to High(a) - Strtoint(park) do
if a[i] > a[i+1] then begin
park:=a[i];a[i]:=a[i+1];a[i+1]:=park;
doppelt:= false;
end;
park :=strtoint(park) +1;
until doppelt;

so?

[Bjoerk]

Zitat:

Zitat von boxer123 (Beitrag 1131993)

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(..

[DeddyH]

Was willst Du denn jetzt mit diesem komischen "park" (und dann noch String als Integer samt Umwandlung)? Deklarier doch einfach eine Integer-Variable (in meinem Fall "Durchlauf"), dann kannst Du meinen Code fast 1:1 übernehmen.

[boxer123]

Delphi-Quellcode:

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

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
zahltext:=edit1.text;
for i:=1 to 4 do
begin
//zerlegung
a[i]:=copy(Strtoint(zahltext),i,1);
b[i]:=copy(Strtoint(zahltext),i,1);
end;
durchlauf:=1;
repeat
doppelt:=true;
for i:= Low(a) to High(a) - durchlauf do
if a[i] > a[i+1] then begin
park:=a[i];a[i]:=a[i+1];a[i+1]:=park;
doppelt:= false;
end;
durchlauf :=durchlauf +1;
until doppelt;

so?

wie so?

[Bjoerk]

In dieser Variante gibt es kein J.

[boxer123]

das mit copy ist schwer dann