Strona główna Darmowe programy, shareware Programowanie MS Excel Porady komputerowe Bazy danych Kontakt

Polecamy: darmowe gry logiczne Sudoku do druku - raz zagrasz nigdy nie przestaniesz!
Zobacz ciekawe Zagadki logiczne Tabliczka mnożenia Mnożenie macierzy Macierz odwrotna

Warto uczyć się języka angielskiego: Życzenia urodzinowe po angielsku Ubrania po angielsku Zawody po angielsku

Lista dwukierunkowa

Lista dwukierunkowa.

Na rysunku poniżej pokazano wygląd prostej listy dwukierunkowej. Składa się ona z elementów o jednakowej budowie. Każdy element posiada pewną ilość pól danych o dowolnym typie (string, integer, real itd.) i dwa dodatkowe pola przechowujące wskaźniki (adresy) następnego i poprzedniego elementu listy dwukierunkowej. Dodatkowo na rysunku pokazana jest dodatkowa zmienna - wskaźnik na 1 element listy. Dzięki temu wskaźnikowi mamy dostęp do całej listy.

Lista dwukierunkowa - przykładowy program w Pascalu

Przykładowy program w Pascalu umożliwia utworzenie listy dwukierunkowej, utworzenie elementu, dodanie elementu do listy, usunięcie pierwszego elementu i zliczenie ilości elementów w liście.

program lista_dwukierunkowa;
{ Copyright by programowaniePC.pl }
type
wsk_element = ^element;

element = record
imie     : string;
nazwisko : string;
wsk_pop  : wsk_element;
wsk_nast : wsk_element;
end;

var wsk_1_element : wsk_element;

procedure utworz_liste;
begin
  wsk_1_element := nil;
end;

function utworz_element(imie,nazwisko:string):wsk_element;
var wsk:wsk_element;
begin
new(wsk);
wsk^.imie      := imie;
wsk^.nazwisko  := nazwisko;
wsk^.wsk_pop   := nil;
wsk^.wsk_nast  := nil;
utworz_element := wsk;
end;

procedure dodaj_element(var e: wsk_element);
begin
if (wsk_1_element=nil) then
  wsk_1_element := e
else
begin
 e^.wsk_nast := wsk_1_element;
 e^.wsk_pop  := nil;
 wsk_1_element^.wsk_pop := e;
 wsk_1_element := e;
end;
end;

procedure usun_1_element;
var e:wsk_element;
begin
  e:=wsk_1_element;
  if (e^.wsk_nast<>nil) then
    e^.wsk_nast^.wsk_pop := nil;

wsk_1_element := e^.wsk_nast;
  dispose(e);
end;

function ile_elementow:integer;
var wsk:wsk_element;
    ile:integer;
begin
wsk:=wsk_1_element;
ile:=0;
while (wsk<>nil) do
begin
  ile:=ile+1;
  wsk:=wsk^.wsk_nast;
end;
ile_elementow:=ile;
end;

var wsk:wsk_element;

begin
utworz_liste;

wsk:= utworz_element('Anna','Kowalska');
dodaj_element(wsk);
writeln(ile_elementow);

wsk:= utworz_element('Adam','Nowak');
dodaj_element(wsk);
writeln(ile_elementow);

usun_1_element;
writeln(ile_elementow);

usun_1_element;
writeln(ile_elementow);
readln;

end.

Polecamy : Cyfry rzymskie Przyspieszenie ziemskie Wahadło matematyczne Mostek Gretza Pojemność kondensatora Liczby naturalne przykłady Liczby wymierne przykłady Stopniowanie przymiotników angielski Działania na logarytmach Usuwanie niewymierności z mianownika Średnia arytmetyczna Średnia ważona Równania wymierne Alfabet grecki Kwasy beztlenowe trójkąt równoboczny wzory fizyczne twierdzenia matematyczne twierdzenia Pitagorasa wzory matematyczne zadania z matematyki zadania z chemii wzory strukturalne wzory skróconego mnożenia wartości funkcji trygonometrycznych ułamki zwykłe funkcja kwadratowa funkcja liniowa funkcja homograficzna wyrażenia algebraiczne Prawo Avogadra Otrzymywanie kwasów