AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Algo sortiert falsch

Ein Thema von gordon freeman · begonnen am 16. Okt 2004 · letzter Beitrag vom 16. Okt 2004
Antwort Antwort
Benutzerbild von gordon freeman
gordon freeman

Registriert seit: 28. Jun 2003
Ort: Gelsenkirchen
337 Beiträge
 
Delphi 2005 Personal
 
#1

Algo sortiert falsch

  Alt 16. Okt 2004, 18:33
Hi Leute,
ich hab mir mit Hilfe des Tuts aus der Code-Lib die folgende procedure gebastelt. Es soll eine Zeile sortiert werden (deshalb heißt der Array "letzteZeile" ). In laenge wird die Anzahl der Einträge des Arrays gespeichert. In dem Array stehen 4 oder 5 Einträge. (z.B. 4, -12, -41, -3, 54) Diese sollen jetzt geordnet werden, so dass der höhste Eintrag als erster erscheint und der niedrigste als letztes. Hier der Code:

Delphi-Quellcode:
//////////////////////////////////////////
//Der Array "Letzte Zeile" wird sortiert//
//////////////////////////////////////////
procedure TForm11.BubbleSort(letzteZeile:Array of integer;laenge:integer);
var Zaehler1, Zaehler2, Austausch: Integer;
begin
     for Zaehler1 := laenge downto 2 do
         for Zaehler2 := 1 to Zaehler1-1 do
             if letzteZeile[Zaehler2] < letzteZeile[Zaehler2+1] then
                begin
                Austausch := letzteZeile[Zaehler2];
                letzteZeile[Zaehler2] := letzteZeile[Zaehler2+1];
                letzteZeile[Zaehler2+1]:=Austausch;
                end;
end;
Ich rufe also in meinem Code die Prozedur mit:

Bubblesort(LetzteZeile,Spieleranzahl); auf. (Spieleranzahl ist 'nen Integer). Da der Array LetzteZeile global ist müsste er doch eigentlich sortiert werden? Wird er aber nicht Was ist daran denn jetzt schon wieder falsch?????


p.s. Alle die mich wegen der Verwendung des Bubblesort-Sortierverfahrens kritisieren wollen, bitte ich dies nicht zu tun, da ich, wie erwähnt mit 4 bis 5 Einträgen arbeite und mir das Bubblesort-Verfahren für diese Anzahl von Einträgen als einfachstes erscheint.
  Mit Zitat antworten Zitat
Keldorn

Registriert seit: 6. Mär 2003
Ort: Meißen
876 Beiträge
 
Delphi 10.1 Berlin Professional
 
#2

Re: Algo sortiert falsch

  Alt 16. Okt 2004, 19:23
Hallo

dein array wird vielleicht richtig sortiert, aber du hast
procedure TForm11.BubbleSort(VAR letzteZeile:Array of integer;laenge:integer); ein Var in der Proc-deklaraiton vergessen.

edit: da du ein dynamisches Array hast, beginnt das bei 0, du mußt noch die Schleifen anpassen.

Mfg Frank

Lükes Grundlage der Programmierung:
Es wird nicht funktionieren
(Murphy)
  Mit Zitat antworten Zitat
Benutzerbild von gordon freeman
gordon freeman

Registriert seit: 28. Jun 2003
Ort: Gelsenkirchen
337 Beiträge
 
Delphi 2005 Personal
 
#3

Re: Algo sortiert falsch

  Alt 16. Okt 2004, 22:08
Mamchmal aht man echt 'nen Brett vor'm Kopf!

Ich habe den Array "LetzteZeile" zwar in der Prozedure sortiert, aber das nur als lokale Variable. Hab den lokalen Array jetzt "zeile" genannt und ans Ende ein:

Delphi-Quellcode:
for i:=1 to laenge do
begin
letzteZeile[i]:=Zeile[i-1];
end;
gesetzt. Jetzt sortiert er auch.




Danke an alle, die sich Gedanklen gemacht haben!
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:30 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz