pridavani_prvku_do_linearniho_spojoveho_seznamu_s_hlavou [Programování]

 
procedure pridejNaKonec(var hlava: UkPrvek; co: integer);
var
  ukazovatko,
  novaKrabicka: UkPrvek;
begin
  ukazovatko := hlava;
  while ukazovatko^.dalsi <> nil do
    ukazovatko := ukazovatko^.dalsi;
 
  new(novaKrabicka);
  novaKrabicka^.info := co;
  novaKrabicka^.dalsi := nil;
  ukazovatko^.dalsi := novaKrabicka;
end;