Moin,

ich habe ein Problem mit meinem Projekt und ich komme nicht dahinter

Und zwar sortiert er die Zahlen alle richtig, nur nimmt er die größte Zahl und ersetzt die durch die letzte Zufallszahl, sodass diese einmal mehr drin ist und die andere fehlt!

ich hoffe mal das einer von euch mir helfen kann

Poste doch mal die relevanten Codestellen. Ich glaube nicht, dass viele Lust/Zeit dazu haben, sich den ganzen Quelltext anzugucken.

ich denke der fehler sitzt irgendwo in diesem teil:

markieren

Delphi-Quellcode:

  for i := 1 to 10 do
  begin
    y := i;
    while zufallszahl[y+1] < zufallszahl[y] do
    begin
      tauschen (zufallszahl[y], zufallszahl[y+1]);
      if y > 1 then y := pred(y);

danke schonmal im vorraus...

[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]

Hallo,
ja da sitzt in jedem Fall ein Fehler, Du erstellst 10 Zufallszahlen aber greifst auf 11 zu:

For i := 1 to 10 do while zufallszahl[y+1] (10+1 macht 11)

Gruss

ja, stimmt...

bringt aber auch nichts

den fehler hat der immernoch...

Zitat von MalteV:

zusammenfalten · markieren

Delphi-Quellcode:

  for i := 1 to 10 do
  begin
    y := i;
    if (y + 1) <= 10 then begin
    while zufallszahl[y+1] < zufallszahl[y] do
    begin
      tauschen (zufallszahl[y], zufallszahl[y+1]);
      if y > 1 then y := pred(y);
    end;
  end else begin
    mach es halt anders :P
  end;

oder

markieren

Delphi-Quellcode:

  for i := 1 to 9 do
  begin
    y := i;
    while zufallszahl[y+1] < zufallszahl[y] do
    begin
      tauschen (zufallszahl[y], zufallszahl[y+1]);
      if y > 1 then y := pred(y);
    end;
  end;

oder so...

Moin, Moin.
Ist das Problem gelöst? Ich bin über diese Form des BubbleSort etwas irritiert Die Reihenfolge der for- und while-Schleifen ist m. E. vertauscht. Mit folgendem alternativem Code sollte es funktionieren:

markieren

Delphi-Quellcode:

repeat
  Done:=true;
  for i:=1 to 9 do
    if Zufallszahl[i]>Zufallszahl[i+1] then begin
      Tauschen();
      Done:=false
      end
  until Done;

jo danke, aber spaxxn hat das problem schon gelöst...


vielen dank...alleine wäre ich echt nich weiter gekommen glaube ich...