AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi brauch hilfe zum Thema Sortieralgorithmus !!!Dringend!!!

brauch hilfe zum Thema Sortieralgorithmus !!!Dringend!!!

Ein Thema von Jacqybaby · begonnen am 21. Nov 2005 · letzter Beitrag vom 22. Nov 2005
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von neuronet
neuronet

Registriert seit: 16. Aug 2005
Ort: Berlin
104 Beiträge
 
Delphi 2010 Architect
 
#11

Re: brauch hilfe zum Thema Sortieralgorithmus !!!Dringend!!!

  Alt 21. Nov 2005, 23:02
Kann sein, dass es so sein muss:

  h[i]:=strtoint(zufall.items[i-1]); Bin mir nicht sicher, ob TListBox mit Index 0 oder 1 anfängt...
Andreas
--- Der Wert der Leistung liegt im Geleisteten --- Albert Einstein

Mein erstes Baby: Apple I - Der Rechner ist genauso alt wie ich... Und steht noch immer im Keller...
  Mit Zitat antworten Zitat
Benutzerbild von sniper_w
sniper_w

Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
 
Delphi 6 Enterprise
 
#12

Re: brauch hilfe zum Thema Sortieralgorithmus !!!Dringend!!!

  Alt 21. Nov 2005, 23:03
anstatt:for i:=0 to n do solltefor i:=0 to zufall.count-1 do
Katura Haris
Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
  Mit Zitat antworten Zitat
Jacqybaby

Registriert seit: 21. Nov 2005
25 Beiträge
 
#13

Re: brauch hilfe zum Thema Sortieralgorithmus !!!Dringend!!!

  Alt 21. Nov 2005, 23:11
super auf jeden fall bekomme ich jetzt schon mal die Zufallszahlen statt Nullen angezeigt allerdings nicht ganz sortiert, d.h. die Reihenfolge ist durcheinander aber wiederum verschieden zu der Reihenfolge der Listbox in der die Zufallszahlen angezeigt werden.


MFG Jacqybaby
  Mit Zitat antworten Zitat
Benutzerbild von neuronet
neuronet

Registriert seit: 16. Aug 2005
Ort: Berlin
104 Beiträge
 
Delphi 2010 Architect
 
#14

Re: brauch hilfe zum Thema Sortieralgorithmus !!!Dringend!!!

  Alt 21. Nov 2005, 23:14
Das liegt dann am Sortieralgorithmus...

Schau mir den noch mal genauer an...
Andreas
--- Der Wert der Leistung liegt im Geleisteten --- Albert Einstein

Mein erstes Baby: Apple I - Der Rechner ist genauso alt wie ich... Und steht noch immer im Keller...
  Mit Zitat antworten Zitat
Jacqybaby

Registriert seit: 21. Nov 2005
25 Beiträge
 
#15

Re: brauch hilfe zum Thema Sortieralgorithmus !!!Dringend!!!

  Alt 21. Nov 2005, 23:22
danke danke danke funktionniert.

MFG Jacqybaby
  Mit Zitat antworten Zitat
Benutzerbild von neuronet
neuronet

Registriert seit: 16. Aug 2005
Ort: Berlin
104 Beiträge
 
Delphi 2010 Architect
 
#16

Re: brauch hilfe zum Thema Sortieralgorithmus !!!Dringend!!!

  Alt 21. Nov 2005, 23:25
Versuch's mal so:

Delphi-Quellcode:
procedure minimumsuche(n:integer; var h:array of integer);
var
  i,hilfsvar:integer;
  fertig: boolean
begin
  repeat
    fertig:=true;
    for i:=1 to n-1 do Begin
      if h[i] > h[i+1] then Begin
        hilfsvar:=h[i];
        h[i]:=h[i+1];
        h[i+1]:=hilfsvar;
        fertig:=false;
      end;
    end;
  until fertig;
end;
Andreas
--- Der Wert der Leistung liegt im Geleisteten --- Albert Einstein

Mein erstes Baby: Apple I - Der Rechner ist genauso alt wie ich... Und steht noch immer im Keller...
  Mit Zitat antworten Zitat
Benutzerbild von neuronet
neuronet

Registriert seit: 16. Aug 2005
Ort: Berlin
104 Beiträge
 
Delphi 2010 Architect
 
#17

Re: brauch hilfe zum Thema Sortieralgorithmus !!!Dringend!!!

  Alt 21. Nov 2005, 23:26
Okay....
Andreas
--- Der Wert der Leistung liegt im Geleisteten --- Albert Einstein

Mein erstes Baby: Apple I - Der Rechner ist genauso alt wie ich... Und steht noch immer im Keller...
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.251 Beiträge
 
Delphi 2006 Professional
 
#18

Re: brauch hilfe zum Thema Sortieralgorithmus !!!Dringend!!!

  Alt 22. Nov 2005, 08:01
Hai Jacqybaby,

nehme die Bilder doch bitte aus dem Posting und hänge sie als Anhang an. Das eine Bild hat ca 220 kByte und das andere auch über 130 kB. Nicht jeder der hier reinschaut hat eine DSL-Flatrate

Danke

Um dies zu machen musst Du einfach nur in dem jeweiligen Posting von Dir auf den EDIT Button klicken. Dies geht allerdings nur innerhalb von 24 Stunden nach erstellen des Beitrages. Wenn Du es in dieser Zeit nicht schaffen solltest melde die Beiträge über das [!] Symbol einfach dem Team. Einer von uns wird sich der Sache dann sicher annehmen.
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
Jacqybaby

Registriert seit: 21. Nov 2005
25 Beiträge
 
#19

Re: brauch hilfe zum Thema Sortieralgorithmus !!!Dringend!!!

  Alt 22. Nov 2005, 11:22
Ok ich bin soweit fertig mit dem Projekt jetzt fehlt mir nur noch ein Algorithmus zum Thema sortieren durch einfügen und das Messen der benötigten Zeit, kann mir jemand sagen wie das gehen soll ? Kann mir nicht vorstellen, dass das funktioniert. kennt jemand noch einen anderen Algorithmus zum sortieren duch Einfügen außer dem hier:

Delphi-Quellcode:
  
procedure TForm1.whileschleife(n:integer; var h:array of integer);
var i,j,li,re,m,x:integer;
begin
for i:=2 to n Do
begin
     x:=h[i];
     li:=1;
     re:=i-1;
              while li<=re do
              begin
              m:=(li+re)div 2;
              if x<h[m] then re:=m-1 else li:=m+1
              end;

     For j:=i-1 downto li do h[j+1]:=h[j];
     h[li]:=x;
     end;
end;
???

MFG Jacqybaby
  Mit Zitat antworten Zitat
Benutzerbild von neuronet
neuronet

Registriert seit: 16. Aug 2005
Ort: Berlin
104 Beiträge
 
Delphi 2010 Architect
 
#20

Re: brauch hilfe zum Thema Sortieralgorithmus !!!Dringend!!!

  Alt 22. Nov 2005, 13:18
So sollte es eigentlich funktioniere (nur noch editX anpassen):

Delphi-Quellcode:
procedure TForm1.whileschleife(n:integer; var h:array of integer);
var
  i, j, hilf : integer;
  start, ende, diff: TDateTime
begin
  start:=Time; // Aktuelle Systemzeit speichern
  for i:=1 to n do begin
    j:=i;
    hilf:=h[i];
    while (j > 1) and (h[j-1] > hilf) do begin
      h[j]:=h[j-1];
      Dec(j);
    end;
    h[j]:=hilf;
  end;
  ende:=Time; // Aktuelle Systemzeit speichern      
  diff:=ende-start; // Differenz berechenen
  editX.Text:=timetostr(diff); // Differenz ausgeben
end;
Andreas
--- Der Wert der Leistung liegt im Geleisteten --- Albert Einstein

Mein erstes Baby: Apple I - Der Rechner ist genauso alt wie ich... Und steht noch immer im Keller...
  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 06:51 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