Lista Cykliczna Jednokierunkowa

Nie da się wskazać, który element jest pierwszy

Wypisywanie listy

procedure wypisz(Glowa:pelist);
var
  tmp : pelist;
begin
  tmp:=head;
  while tmp^.next <> head do
    begin
      writeln(tmp^.data);
      tmp:=tmp^.next;
    end;
   if head^.next = head then
    writeln(head^.data);
end;

Podobne strony

Podobne Strony • Lista Jednokierunkowa Obiektowa • Stos • Drzewo • Lista Dwukierunkowa • Lista Jednokierunkowa

_edit_ . _edit sections_