Stos
"Pierwsi będą ostatnimi, ostatni będą pierwszymi" - powiedział Jezus i zaimplementował stos
type PStos = ^TStos;
TStos = record
Liczba: Byte;
Nast: PStos;
end;
Wrzucanie na stos
procedure naStos(var Pocz: PStos; Liczba: Byte);
var Nowy: PStos;
begin
New(Nowy);
Nowy^.Liczba := Liczba;
Nowy^.Nast := Pocz;
Pocz := Nowy;
end;
Ściąganie elementu ze stosu
function zeStosu(var Pocz: PStos):byte;
var Stary:PStos;
Liczba:byte;
begin
Liczba:=Pocz^.Liczba;
Stary:=Pocz^.Nast;
Dispose(Pocz);
Pocz:=Stary;
zeStosu:=Liczba;
end;
Podobne strony
Podobne Strony • Drzewo • Lista Dwukierunkowa • Lista Cykliczna Jednokierunkowa • Lista Jednokierunkowa
wersja strony: 4, ostatnia edycja: 18 Aug 2009 08:10