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 jednokierunkowa

Lista jednokierunkowa.

Na rysunku poniżej pokazano wygląd prostej listy jednokierunkowej. 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 jedno dodatkowe pole przechowujące wskaźnik (adres) następnego elementu listy jednokierunkowej. Ostatni element listy posiada pusty wskaźnik. 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 jednokierunkowa - przykładowy program w Pascalu

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

program lista_jednokierunkowa;

type
wsk_element = ^element;

element = record
imie : string;
nazwisko: string;
wsk: 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:=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 := wsk_1_element;
 wsk_1_element := e;
end;
end;

procedure usun_1_element;
var e:wsk_element;
begin
  e:=wsk_1_element;
  wsk_1_element := e^.wsk;
  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;
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);

end.

Polecamy : 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