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
wersja strony: 3, ostatnia edycja: 16 Jul 2009 08:47