sortieren in pascal

Re(2): sortieren in pascal

promillo — Tue, 16 Dec 2003 19:33:05 GMT

danke dir!

Re(2): sortieren in pascal

promillo — Tue, 16 Dec 2003 19:31:48 GMT

es is NIL

danke werds mir mal überlegen.. den bubblesort hab i jetzt jedenfalls scho fast fertig

Re(3): sortieren in pascal

Robert Craven — Tue, 16 Dec 2003 08:26:16 GMT

Mann, um die Zeit war mir dein Posting einfach zu hoch, zu viele zu schwierige Wörter

Aber, es ist ja Weihnachten, da kann man ruhig ein paar Geschenke verteilen

Re(2): sortieren in pascal

Zappa F. — Tue, 16 Dec 2003 08:14:56 GMT

mensch - meine erklärung reicht wohl nicht - mußt ihm wohl alles noch vorkauen...
F.Z.

Re: sortieren in pascal

Robert Craven — Tue, 16 Dec 2003 07:42:52 GMT

Such mal nach binärem Suchbaum.
Im Prinzip ists ein Baum, wo alle Knoten links kleiner als der aktuelle sind, alle knoten rechts grösser als der aktuelle.

Ich hab die genaue Pointer-Syntax in Pascal nicht im Kopf, es funktioniert aber so:

TKnoten = RECORD
  links, rechts : Zeiger auf TKnoten;
  wert : integer;
end;

procedure einfuegen(aktuellerKnoten: Zeiger auf TKnoten; neuWert: integer);
begin
  if aktuellerKnoten.wert < neuWert then
    if links = NIL then
      erzeuge neuen Knoten und häng ihn an links
    else 
      einfuegen(links, neuWert)
  else
    if rechts = NIL then
      erzeige neuen Koten und häng ihn an rechts
    else einfuegen(rechts, neuWert);
end;

procedure ausgabe(aktuellerKnoten: Zeiger auf TKnoten);
begin
  if links <> NIL then
    ausgabe(links);
  writeln(aktuellerKnoten.wert);
  if rechts <> NIL then
    ausgabe(rechts);
end;

Re(2): sortieren in pascal

Zappa F. — Tue, 16 Dec 2003 07:23:12 GMT

Nachtrag - es würde natürlich auch mit Bubblesort funktionieren - aber wieso kompliziert, wenns mit einem "Grundgedanken" der hinter listen steht auch geht.

F.Z.

Re: sortieren in pascal

Zappa F. — Tue, 16 Dec 2003 07:17:12 GMT

Hi;

Bubblesort ist das die falsche vorgehensweise - die funkt nur bei arrays.
Probiers mit einer einfach verketteten Liste - also jedes Element besteht aus einer Daten-Variable und einem Pointer auf das nächste objekt (das letzte zeich auf NULL (oder war es NIL?!?)).

Nun hol dir eine Zahl und geh von begin der Liste aus schritt für schritt weiter, bis das Nachfolge-Object größergleich der einzusetztende Zahl ist. Da hängst du nun dein neues Zahlenobject rein und verkettes mit den größer/gleich Element.

So hast du ganz einfach eine aufsteigend sortierte Liste, die wenn du sie ganz trivial ausgibst eben in sich schon die Sortierung hat.

Grpße
F.Z.

Re(4): sortieren in pascal

promillo — Tue, 16 Dec 2003 01:42:01 GMT

des hilft mir aber auch nicht viel weiter

Re(3): sortieren in pascal

Dennis666 — Tue, 16 Dec 2003 00:58:05 GMT

http://www.schoenleber.org/pascal/pascal2-06.html

Re(2): sortieren in pascal

promillo — Tue, 16 Dec 2003 00:53:18 GMT

danke.. seite kenn ich schon
is leider nur mit arrays.. ich scheiter glaub ich an den pointern

des hab i bis jetzt:
function bubsort(list:ptr):ptr;
var h1:ptr;
var changed:boolean;
begin
  changed:=true;
  while (changed=true) do
  begin
  changed:=false;
  h1:=list;
    while (list^.next^.next<>nil) do
    begin
      if (list^.wert < list^.next^.wert) then
      begin
        changed:=true;
        h1^.wert:=list^.wert;
        list^.wert:=list^.next^.wert;
        list^.next^.wert:=h1^.wert;
      end;
    end;
  end;
  list:=h1;
  bubsort:=list;
end;

Re: sortieren in pascal

Dennis666 — Tue, 16 Dec 2003 00:45:28 GMT

http://www.hrz.uni-dortmund.de/A1/kurse/pascal99/teil2_tag3.html

sortieren in pascal

promillo — Mon, 15 Dec 2003 23:18:14 GMT

folgendes pascal-problem:
beliebig viele (mittels pointer) integer sollen sortiert werden..
habs mit bubblesort versucht komm aber auf keinen grünen zweig. goggle spuckt nur versionen mit arrays oder müll aus..