Algolpedia
http://algol.cba.pl/dw/
2012-05-18T10:43:26+02:00Algolpedia
http://algol.cba.pl/dw/
http://algol.cba.pl/dw/lib/images/favicon.icotext/html2011-04-11T14:52:48+02:00pascal:lista_jednokierunkowa
http://algol.cba.pl/dw/doku.php?id=pascal:lista_jednokierunkowa&rev=1302526368&do=diff
Wstawianie nowego elementu...
na początek listy
procedure wstaw_na_pocz(liczba:integer, var glowa: wsk_elem);
var
nowy: wsk_elem;
begin
new(nowy);
nowy^.liczba:=liczba;
nowy^.nast:=glowa
glowa:=nowy;
end;
na koniec listy
procedure wstaw_na_kon(liczba:integer; var glowa:wsk_elem);
var
koniec:wsk_elem;
begin
if glowa = nil then
begin
new(glowa);
glowa^.liczba:=liczba;
glowa^.nast:=nil;
end
else
begin
koniec:=glowa;
while koniec^.nast <>…