Re: Probleme mit Listen/ verkettet Listen
Wie ist Nummer definiert?
|
Re: Probleme mit Listen/ verkettet Listen
die Nummer ist vom Typ Extended....... daran sollte es aber nicht liegen.... das problem liegt irgentwo im durchlaufen der liste, bzw. nicht richtiger definition der end-kriterien
nummer : extended; |
Re: Probleme mit Listen/ verkettet Listen
Dann versteh ich aber diese Abfrage nicht:
Delphi-Quellcode:
. Was soll dabei herauskommen, wenn es sich nicht um ein Array handelt?
Element.Nummer [1]
|
Re: Probleme mit Listen/ verkettet Listen
So, eine ungetestete Version, versuch halt mal:
Delphi-Quellcode:
While Durchlauf Do
Begin Element := Dummy; // Bei jedem Start des Durchlaufs soll wieder auf von vorne gesucht werden Durchlauf := False; // wenn nichts gefunden wird, soll die Schleife abgebrochen werden gefunden := false; // da die schleife wieder von vorne anfängt, soll erstmal die zweite while do schleife laufen While (Element^.nd<> NIL) and (not Gefunden) do // wenn er ende erreicht soll abgebrochen werden Begin // in der IF Then Anweisung werden die Werte des aktuellen mit dem nächsten vergleicht.. jeweils 20% kleiner/ größer // dürfen die Einzelwerte sein, damit die beiden Elemente zusammengelegt werden If (Element^.Nummer < (((Element^.Nummer+Element^.nd^.Nummer) / 2) * 1.2)) and (Element^.Nummer > (((Element^.Nummer+Element^.nd^.Nummer) / 2) * 0.8)) and (Element^.nd^.Nummer < (((Element^.Nummer+Element^.nd^.Nummer) / 2) * 1.2)) and (Element^.nd^.Nummer > (((Element^.Nummer+Element^.nd^.Nummer) / 2) * 0.8)) Then Begin // Sind die beiden Elemente in dem Bereich, dann soll der erste als Wert den Mittelwert beider bekommen Element^.Nummer := (Element^.Nummer+Element^.nd^.Nummer) / 2; // 2. Element löschen tmp := Element^.nd; Element^.nd := tmp^.nd; Dispose(tmp); Durchlauf := true; gefunden := true; End; //soll weiter suchen, bis die andere While anforderung erfühlt ist..... Element:= Element^.nd; // immer ein Element weiter End; End; |
Re: Probleme mit Listen/ verkettet Listen
ach sorry.... das mit dem [1] ist weil ich den quelltext aus delphi herauskopiert habe und dann alles soweit verändert hatte.... in delphi ist das ein array vom typ extended mit 10 möglichen stellen.... nummer : array[1..10] of Extended;.......
aber ich probiere das mal direkt aus!!!! sage gleich noch bescheid ob es funktioniert :) |
Re: Probleme mit Listen/ verkettet Listen
also erstmal danke.... hat schonmal ganz gut geholfen, gibt nur noch einen fehler bei den letzten werten..... werde mal etwas weiter suchen.... falls ich es nicht hinbekomme, melde ich mich nochmal......... ABER WIRKLICH VIELEN VIELEN DANK!!!!!
|
Re: Probleme mit Listen/ verkettet Listen
hallo, ich bins leider schon wieder ;)
also grundsätzlich läuft der algorithmus schon ganz gut, nur leider immer noch nicht zufriedenstellend ich habe ihn etwas weiter geändert, leider macht er immer noch fehler.... hier mal, was ich geändert habe in blau und rot zu sehen.... blau: da ich immer zwei aufeinanderfolgende elemente vergleichen will, also auch vorletzten und letzten darf ich nich bis zum letzten springen und dann mir werte aus dem danach holen (kommt zu fehler) rot: da der dummy leer ist, springe ich schon vor dem ersten mal checken auf das nächste element, das sozusagen das erste element ist. PROBLEM: solange die beiden letzten elemente so unterschiedlich sind, dass sie nicht zusammengelegt werden müssen ist alles okay, aber sobald die beiden letzten elemente "vereint werden sollen" kommt es zu einem fehler "access violation at adress ...."! Aber dard auch erstmal nicht abbrechen, den das jetzt letzte element könnte ja mit dem vorletzten element wieder vereint werden können..... ABER ich weiss einfach nicht mehr weiter..... ich sehe nicht wo der fehler ist... eigentlich sollte doch die While Do Kriterien einen fehler abbsichern, oder? While Durchlauf Do Begin Element := Dummy; Durchlauf := False; gefunden := false; While (Element^.nd^.nd<> NIL) and (Element^.nd<> NIL) and (not Gefunden) do Begin Element:= Element^.nd; //muss hierhin, da im dummy kein wert abgelegt ist, sonst fehler If (Element^.Nummer < (((Element^.Nummer+Element^.nd^.Nummer) / 2) * 1.2)) and (Element^.Nummer > (((Element^.Nummer+Element^.nd^.Nummer) / 2) * 0.8 )) and (Element^.nd^.Nummer < (((Element^.Nummer+Element^.nd^.Nummer) / 2) * 1.2)) and (Element^.nd^.Nummer > (((Element^.Nummer+Element^.nd^.Nummer) / 2) * 0.8 )) Then Begin Element^.Nummer := (Element^.Nummer+Element^.nd^.Nummer) / 2; tmp := Element^.nd; Element^.nd := tmp^.nd; Dispose(tmp); Durchlauf := true; gefunden := true; End; End; End;
Delphi-Quellcode:
Ihr habt mir bisher schon so gut geholfen, dafür nochmals vielen Dank, falls das letzte problem zu beheben wäre, das wäre super!!! wer in köln/umgebung wohnt und noch zusätzlich das problem lösen kann, den werde ich zum dank auf nen drink einladen ;)
While Durchlauf Do
Begin Element := Dummy; Durchlauf := False; gefunden := false; While [color=#009fff](Element^.nd^.nd<> NIL) and [/color](Element^.nd<> NIL) and (not Gefunden) do Begin [color=#ff0000]Element:= Element^.nd; //muss hierhin, da im dummy kein wert abgelegt ist, sonst fehler [/color] If (Element^.Nummer < (((Element^.Nummer+Element^.nd^.Nummer) / 2) * 1.2)) and (Element^.Nummer > (((Element^.Nummer+Element^.nd^.Nummer) / 2) * 0.8 )) and (Element^.nd^.Nummer < (((Element^.Nummer+Element^.nd^.Nummer) / 2) * 1.2)) and (Element^.nd^.Nummer > (((Element^.Nummer+Element^.nd^.Nummer) / 2) * 0.8 )) Then Begin Element^.Nummer := (Element^.Nummer+Element^.nd^.Nummer) / 2; tmp := Element^.nd; Element^.nd := tmp^.nd; Dispose(tmp); Durchlauf := true; gefunden := true; End; End; End; |
Re: Probleme mit Listen/ verkettet Listen
Wieso ist denn in Dummy kein Wert hinterlegt? Nomalerweise speichert man sich doch beim Anlegen einer einfach verketteten Liste das 1. Element als Einstiegspunkt. Und wenn Du schon "einen weiter" prüfst, dreh bitte die Bedingungen um, sonst knallt es.
Delphi-Quellcode:
[edit] Vielleicht zeigst Du uns mal, wie Du die Liste anlegst, ich denke, da liegt der Hund begraben. [/edit]
While (Element^.nd<> NIL) and (Element^.nd^.nd<> NIL) and (not Gefunden) do // so herum
|
Re: Probleme mit Listen/ verkettet Listen
mensch das war es...... ich hatte nie angenommen das die Reihenfolge der Bedingungen für die While Do Schleife eine Rolle spielt....... MENSCH ES LÄUFT....... daran habe ich mir seit Wochen den Kopf zerbrochen und euch hier ja genervt :)
ach bin ich froh!!! vielen Dank!!!! Also falls du in der Nähe Köln wohnst steht das Angebot !!!! Naja der Dummy verweisst nur auf das erste Element, hat aber ausser dem Zeiger aufs nächste Element selber keinen Inhalt...... Aber da es jetzt läuft ist alles SUPER !!!!! |
Re: Probleme mit Listen/ verkettet Listen
Ich versteh bei der ganzen Sache aber immer noch nicht, wieso Du das übernächste Element prüfen musst. :gruebel:
Naja, wenn es jetzt geht, isses ja gut :zwinker: . P.S.: Nähe von Köln haut nicht ganz hin, siehe mein Profil :lol: [edit] Achja, zur Reihenfolge schau Dir mal den Compilerschalter $B an. Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 12: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