NézetNyomtat

8. óra
Címkék > Óra

8. óra

Rendezett lista

type PElem = ^Elem;
     Elem = Record
                data : string;
                next : PElem;
            end;
     Lista = Record
                head, tail : PElem;
             end;


procedure initLista(var L : lista);
begin
    new(L.head);
    new(L.tail);
    L.head^.data := '';
    L.head^.next := L.tail;
    L.tail^.data := 'zzzzzzzzzz';
    L.tail^.next := NIL;
end;

procedure insert(var L : lista; s : string);
var p   : PElem;
    tmp : PElem;
begin
    p := L.head;
    while s > p^.next^.data do p := p^.next;
    
    new(tmp);
    tmp^.next := p^.next;
    tmp^.data := s;
    p^.next := tmp;
    
end;

procedure printList(: lista);
var p : PELem;
begin
    p := L.head^.next;
    while p <> L.tail do
    begin
        write(p^.data,' ');
        p := p^.next;
    end;
    writeln;
end;

Jegyzetek

BME jegyzet: dinamikus_asz.pdf

Feladat